Public Event MouseActivity As MouseEventHandler
''' <summary>键盘按下事件</summary>
Public Event KeyDown As KeyEventHandler
''' <summary>键盘输入事件</summary>
Public Event KeyPress As KeyPressEventHandler
''' <summary>键盘松开事件</summary>
Public Event KeyUp As KeyEventHandler
''''''''''''''''''怎么引发keydown事件呢？
sub kk()
raiseevent keydown()‘提示缺少SENDER,E的实参，我如果自己定义一个实参，又会出现，“你确定不会出现无限递归……”
msgbox（" "）’我希望按下任何建产生msgbox对话框
end sub
’‘’‘’‘’‘’‘’‘’‘求教一个比较标准的引发事件的过程

估计吧主最近很忙，ScriptAny的水贴都没人治理。RaiseEvent keyDown(Me,New EventArgs)

sender表示激活这个事件的对象，一般指类自己，用 Me 来代表
e表示这个事件的一些附加参数，在调用 raiseevent 之后，可以通过这个参数返回的数据来执行某些操作
无限递归的话，可能是你在一个 keydown 所激活的委托方法内再次调用了 kk 这个函数
详细资料请参考MSDN
http://msdn.microsoft.com/zh-cn/library/ms172877.ASPX