If hHook.Equals(0) Then
            hookproc = AddressOf MouseHookProc
            hHook = SetWindowsHookEx(WH_MOUSE, _
                                     hookproc, _
                                     IntPtr.Zero, _
AppDomain.GetCurrentThreadId())
            If hHook.Equals(0) Then
                Me.RichTextBox1.AppendText("SetWindowsHookEx Failed")
                Return
            End If