Dim DragFlag As Boolean
    Dim MemX As Integer, MemY As Integer
 
    Private Sub Picture2_MouseDown1(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles Picture2.MouseDown
        DragFlag = True : MemX = e.X : MemY = e.Y
    End Sub
 
    Private Sub Picture2_MouseMove1(ByVal sender As Object, _ 
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles Picture2.MouseMove
        If Not DragFlag Then Exit Sub
        Picture2.Left = Picture2.Left + (e.X - MemX)
        Picture2.Top = Picture2.Top + (e.Y - MemY)
    End Sub
 
    Private Sub Picture2_MouseUp1(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles Picture2.MouseUp
        DragFlag = False
    End Sub