Private CurrentPosition As New System.Drawing.Point
    Private MouseButton As System.Windows.Forms.MouseButtons = Nothing
 
Private Overloads Sub OnMouseDown(ByVal Sender As System.Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        MyClass.MouseButton = e.Button()
        With MyClass.CurrentPosition
            .X = e.X()
            .Y = e.Y()
        End With
    End Sub
 
    Private Overloads Sub OnMouseUp(ByVal Sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        MyClass.MouseButton = Nothing
    End Sub
 
    Private Overloads Sub OnMouseMove(ByVal Sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Select Case MyClass.MouseButton
            Case Is = MouseButtons.Left
                MyClass.Top = MyClass.Cursor.Position.Y() - _
                  MyClass.CurrentPosition.Y()
                MyClass.Left = MyClass.Cursor.Position.X() - _
                MyClass.CurrentPosition.X()
            Case Is = Nothing
                Exit Sub
        End Select
    End Sub