Option Explicit
 
Dim DragFlag As Boolean
Dim MemX As Long, MemY As Long
 
 
Private Sub Picture2_MouseDown(Button As Integer, Shift As _
                               Integer, X As Single, Y As Single)
 
    DragFlag = True
    MemX = X
    MemY = Y
End Sub
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As _
                               Integer, X As Single, Y As Single)
 
    If Not DragFlag Then Exit Sub
    Picture2.Left = Picture2.Left + (X - MemX)
    Picture2.Top = Picture2.Top + (Y - MemY)
End Sub
 
Private Sub Picture2_MouseUp(Button As Integer, Shift As _
                             Integer, X As Single, Y As Single)
 
    DragFlag = False
End Sub