Private _moving As Boolean
    Private _mp As Point
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        _moving = True
        _mp = New Point(e.X, e.Y)
    End Sub
 
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        _moving = False
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If _moving Then
            Dim np As Point = Me.Location
            np.Offset(e.X - _mp.X, e.Y - _mp.Y)
            Me.Location = np
        End If
    End Sub