vb.net Error creating window handle

In declarations add:

Friend Mouse As New MouseTrap

Then use the following class to disable...

Mouse.Dsable()

or enable...

Mouse.Enable()

your mouse - which either allows or disallows mouse movements while your application has the focus.

Public Class MouseTrap

#Region "Declarations - Constants"

    Private Const HC_ACTION As Integer = 0
    Private Const WH_MOUSE_LL As Integer = 14
    Private Const WM_MOUSEMOVE As Integer = &H200
    Private Const WM_LBUTTONDOWN As Integer = &H201
    Private Const WM_LBUTTONUP As Integer = &H202
    Private Const WM_LBUTTONDBLCLK As Integer = &H203
    Private Const WM_RBUTTONDOWN As Integer = &H204
    Private Const WM_RBUTTONUP As Integer = &H205
    Private Const WM_RBUTTONDBLCLK As Integer = &H206
    Private Const WM_MBUTTONDOWN As Integer = &H207
    Private Const WM_MBUTTONUP As Integer = &H208
    Private Const WM_MBUTTONDBLCLK As Integer = &H209
    Private Const WM_MOUSEWHEEL As Integer = &H20A

#End Region

#Region "Declarations - Structures"

    Private Structure POINT

        Private x As Integer
        Private y As Integer

    End Structure

    Private Structure MSLLHOOKSTRUCT

        Private pt As POINT
        Private mouseData As Integer
        Private flags As Integer
        Private time As Integer
        Private dwExtraInfo As Integer

    End Structure

#End Region

#Region "Declarations - Win32 API's"

    Private Declare Function SetWindowsHookEx Lib "user32" _
        Alias "SetWindowsHookExA" ( _
        ByVal idHook As Integer, _
        ByVal lpfn As LowLevelMouseProcDelegate, _
        ByVal hmod As Integer, _
        ByVal dwThreadId As Integer) As Integer

    Private Declare Function CallNextHookEx Lib "user32" ( _
        ByVal hHook As Integer, _
        ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As MSLLHOOKSTRUCT) As Integer

    Private Declare Function UnhookWindowsHookEx Lib "user32" ( _
        ByVal hHook As Integer) As Integer

#End Region

    Private hhkLowLevelMouse As Integer

#Region "Declarations - Functions"

    Private Function LowLevelMouseProc( _
        ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As MSLLHOOKSTRUCT) As Integer

        If (nCode = HC_ACTION) Then

            If wParam = WM_MOUSEMOVE Or _
                wParam = WM_LBUTTONDOWN Or _
                wParam = WM_LBUTTONUP Or _
                wParam = WM_LBUTTONDBLCLK Or _
                wParam = WM_RBUTTONDOWN Or _
                wParam = WM_RBUTTONUP Or _
                wParam = WM_RBUTTONDBLCLK Or _
                wParam = WM_MBUTTONDOWN Or _
                wParam = WM_MBUTTONUP Or _
                wParam = WM_MBUTTONDBLCLK Or _
                wParam = WM_MOUSEWHEEL Then

                Return 1

            End If

            Return CallNextHookEx(hhkLowLevelMouse, _
                nCode, wParam, lParam)

        End If

    End Function

    Private Delegate Function LowLevelMouseProcDelegate( _
        ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As MSLLHOOKSTRUCT) As Integer

#End Region

#Region "Declarations - Mouse Public Class Methods"

    Public Sub Disable()

        'Set MouseTrap
        hhkLowLevelMouse = SetWindowsHookEx(WH_MOUSE_LL, _
            AddressOf LowLevelMouseProc, _
            Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, _
            0)

    End Sub

    Public Sub Enable()

        'Release MouseTrap
        UnhookWindowsHookEx(hhkLowLevelMouse)

    End Sub

#End Region

End Class ' Class MouseTrap