MoveFormNoBar (4)

Dim oldX As Long, oldY As Long, isMoving As Boolean
'Copiare su un Form, Label, Command, Picture... ecc...

Private Sub Label1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
oldX = X
oldY = Y
isMoving = True
End Sub

Private Sub Label1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If isMoving Then
Me.Top = Me.Top - (oldY - Y)
Me.Left = Me.Left - (oldX - X)
End If
End Sub

Private Sub Label1_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
isMoving = False
End Sub