Private Sub FRM_Main_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        mylocation()
    End Sub
 
 
    Private Sub mylocation()
        Dim x As Integer
        Dim y As Integer
        x = Me.MousePosition.X
        y = Me.MousePosition.Y
        Me.MousePosition.Offset(x, y)
        Me.Location = New System.Drawing.Point(x, y)
    End Sub