codice:
Dim MouseDown_Flag As Boolean
Dim MouseDownPos_X As Integer
Dim MouseDownPos_Y As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown_Flag = True
MouseDownPos_X = X
MouseDownPos_Y = Y
pt = Me.Top
pl = Me.Left
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MouseDown_Flag Then
    Me.Top = Me.Top + (Y - MouseDownPos_Y)
    Me.Left = Me.Left + (X - MouseDownPos_X)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown_Flag = False
End Sub
p
r
e
g
g
o