Private m_Dragging As Boolean

Private Sub Form_Load()
    Image1.Stretch = True
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    m_Dragging = True
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    If Not m_Dragging Then Exit Sub

    Image1.Move 0, 0, X, Y
End Sub

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