[معاند الحظ]

تفضل اخي هذا مثال بسيط 

شاهد المقطع





يمكنك نسخ الكود من هنا او يمكنك تحميل المثال المرفق

كود :

Public Class Form1
    Dim x, y As Integer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Form2.Show()
        x = getPanelLocation.X - Form2.Width
        y = getPanelLocation.Y - Form2.Height
        Form2.Left = x
        Form2.Top = y
    End Sub

    Private Sub Form1_Move(sender As Object, e As System.EventArgs) Handles Me.Move
        x = getPanelLocation.X - Form2.Width
        y = getPanelLocation.Y - Form2.Height
        Form2.Left = x
        Form2.Top = y
    End Sub

    Function getPanelLocation() As Point
        Return PointToScreen(Panel1.Location)
    End Function
End Class

تحميل المثال

  RepositionExample.zip (الحجم : 74.47 ك ب / التحميلات : 16)