[a.ahmed]

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Form2.Show()
        Form2.Location = New Point(Me.Right, Me.Top)
    End Sub

    Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Me.LocationChanged
        Form2.Location = New Point(Me.Right, Me.Top)
    End Sub

End Class