Jabaco Source

Option Explicit

Private bDragging As Boolean
Private dx As Integer 
Private dy As Integer 
Private lastX As Integer
Private lastY As Integer 

Public Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      If Not bDragging Then
         bDragging = True
         dx = Picture1.Left - X
         dy = Picture1.Top - Y
      End If
End Sub

Public Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If bDragging Then
      If (X - lastX) ^ 2 + (Y - lastY) ^2 > 10 Then
         Picture1.Left = X + dx
         Picture1.Top = Y + dy
         lastX = X
         lastY = Y
      End If
   End If
End Sub

Public Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   bDragging = False 
End Sub

Public Sub Form_Load()
   bDragging = False
End Sub