Visual Basic

<br />
'Declare vars<br />
   Private CurX As Double<br />
   Private CurY As Double<br />
<br />
 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove<br />
        <br />
        If e.Button = MouseButtons.Left Then 'use mouse_left_button<br />
            Dim pt As Point<br />
            pt.X = Me.Left + (e.X - CurX)<br />
            pt.Y = Me.Top + (e.Y - CurY)<br />
            Me.Location = pt<br />
            Me.Refresh()<br />
        End If<br />
<br />
    End Sub<br />
<br />
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown<br />
        CurX = e.X<br />
        CurY = e.Y<br />
    End Sub<br />

    Private Sub SetPoint()<br />
        If hdMousedown = True Then hdMousedown = False Else hdMousedown = True<br />
        pt = Me.PointToClient(Control.MousePosition)<br />
    End Sub<br />
<br />
    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseDown<br />
        SetPoint()<br />
    End Sub<br />
<br />
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseUp<br />
        SetPoint()<br />
    End Sub<br />
<br />
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseMove<br />
        If hdMousedown = True Then<br />
            Me.Location = New Point(Control.MousePosition.X - pt.X, Control.MousePosition.Y - pt.Y)<br />
        End If<br />
    End Sub