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 |