VB键盘HOOK示例问题出在哪？

参考文章：http://www.bitscn.com/pdb/dotnet/200605/24608.html
我测试的是第一步 VB源码的部分，
运行后，点击空格，程序会立即自动退出，请帮我看看问题出在哪里。源文件如下：

窗体Form1文件内容：
VERSION 5.00
Begin VB.Form Form1 
  Caption = "Form1"
  ClientHeight = 3195
  ClientLeft = 60
  ClientTop = 345
  ClientWidth = 4680
  LinkTopic = "Form1"
  ScaleHeight = 3195
  ScaleWidth = 4680
  StartUpPosition = 3 '窗口缺省
  Begin VB.TextBox Text1 
  Height = 1545
  Left = 840
  TabIndex = 0
  Text = "Text1"
  Top = 900
  Width = 2595
  End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'先来看一下在vb中是如何实现的。截的是空格键。表现的目标是：
'一个form，上面有一个textbox，不管焦点是否落在textbox里，按空格键，
'不会在textbox中输入一个空格，而是变成在textbox中写入一句话：“HOOK成功！”

Private Sub Form_Load()
Call EnableKBDHook
End Sub

Private Sub