[vb] Form Drag Snippet

FormDrag.vb

Module FormDrag
    '********** Form Set Variables
    Private dragging As Boolean
    Private mXx As Integer
    Private mYy As Integer

    'Form Drag
    ''MouseDown
    Friend Sub FormDragDown()
        dragging = True
        mXx = Windows.Forms.Cursor.Position.X - Form.ActiveForm.Left
        mYy = Windows.Forms.Cursor.Position.Y - Form.ActiveForm.Top
    End Sub
    ''MouseMove
    Friend Sub FormDragMove()
        If dragging = True Then
            Try
                Form.ActiveForm.Top = Windows.Forms.Cursor.Position.Y - mYy
                Form.ActiveForm.Left = Windows.Forms.Cursor.Position.X - mXx

                If Form.ActiveForm.Top >= (Screen.PrimaryScreen.Bounds.Height - 50) Then
                    Form.ActiveForm.Top = Screen.PrimaryScreen.Bounds.Height - 50
                End If

                If Form.ActiveForm.Top <= 0 Then
                    Form.ActiveForm.Top = 0
                End If
            Catch ex As Exception
                dragging = False
            End Try
        End If
    End Sub
    ''MouseUp
    Friend Sub FormDragUp()
        dragging = False
    End Sub

End Module