Private Sub Picture2_MouseMove1(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles Picture2.MouseMove
 
        If Not DragFlag Then Exit Sub
 
        Dim pleft As Integer = Picture2.Left + (e.X - MemX)
        pleft = Math.Min(Math.Max(pleft, min_x), max_x)
 
        Dim ptop As Integer = Picture2.Top + (e.Y - MemY)
        ptop = Math.Min(Math.Max(ptop, min_y), max_y)
 
        Picture2.Location = New Drawing.Point(pleft, ptop)
    End Sub