Drag and drop form

Dim StartX, StartY As Long

Sub Geser(ByVal Button As MouseButtons, ByVal x As Single, ByVal y As Single)
        If Button = Windows.Forms.MouseButtons.Left Then
            Me.Left = IIf(x < StartX, Me.Left - (StartX - x), Me.Left + (x - StartX))
            Me.Top = IIf(y < StartY, Me.Top - (StartY - y), Me.Top + (y - StartY))
        End If
    End Sub

    Private Sub btnMenu_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnMenu.MouseDown
        Me.Cursor = Cursors.NoMove2D
        StartX = e.X
        StartY = e.Y
    End Sub

    Private Sub btnMenu_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnMenu.MouseMove
        Geser(e.Button, e.X, e.Y)
    End Sub

    Private Sub btnMenu_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnMenu.MouseUp
        Me.Cursor = Cursors.Default
    End Sub