finally got it working, here is the solution:
Public Class Form1
Public IsFormLeft As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm1ScreenArea = Screen.FromControl(Me).WorkingArea
If Me.Right < frm1ScreenArea.Left + frm1ScreenArea.Width / 2 Then
IsFormLeft = True 'Form1 in Left area
Else
IsFormLeft = False 'Form1 in Right area
End If
Form2.ShowDialog()
End Sub
End Class
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Form1.IsFormLeft Then
Me.Left = Form1.Left + Form1.Width
Me.Top = Form1.Top
Else
Me.Left = Form1.Right - Form1.Width * 2
Me.Top = Form1.Top
End If
End Sub
End Class