关于钩子函数子程序的问题

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hhook As Long) As Long
模块中的代码如下:
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Function HookProc(ByVal iCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MsgBox 123
End Function

form1中的代码如下:
Dim hhook As Long
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf HookProc, App.hInstance, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx hhook
End Sub

这是一个简单的键盘钩子,当成功启用了SetWindowsHookEx之后调用到了模块中的子程序HookProc,大家看到了我上面的代码,hookproc中只有一行就是msgbox 123,运行时没有问题,但是当我将msgbox 123改成了text1.text=123时,VB就自动关闭了,请教下大家这是什么原因?

定义子程序和函数的问题！！急 一个关于VB子程序的问题 关于系统钩子的问题,帮帮我 用钩子函数进行修改键盘信号的问题。 什么是WINDOWS的钩子函数？ 买房子程序的问题 子程序的问题 键盘钩子的问题 asp调用子程序的问题 单片机的延时子程序问题