Как переместить кнопку на форме перетаскиванием мышки - Visual Basic .NET

Public Class Form1
    Private ptX, ptY As Integer
    Private drag As Boolean
    Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
        If e.Button = MouseButtons.Left Then
            drag = True
            Button1 = CType(sender, Button)
            ptX = e.X : ptY = e.Y
        End If
    End Sub
 
    Private Sub Button1_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove
        If drag Then
            Button1.Location = New Point(Button1.Location.X + e.X - ptX, Button1.Location.Y + e.Y - ptY)
            Me.Refresh()
        End If
    End Sub
    Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
        drag = False
    End Sub
End Class