سؤال في التصميم للفورم

اعتذر منكم يا شباب, وجدت الطريقه وهي كالتالي:

' في قسم التصريحات العام
Private StartX As Single
Private StartY As Single
' ===============

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        StartX = X
        StartY = Y
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Left = Left + X - StartX
        Top = Top + Y - StartY
    End If
End Sub

منقول من منتدى vb4arab للفائدة