有关修饰词Event、WithEvents、RaiseEvent的语句在VB中呈现红色错误，没法用啊，VB如何用它们？请看4个句子：

Question

有关修饰词Event、WithEvents、RaiseEvent的语句在VB中呈现红色错误，没法用啊，VB如何用它们？请看4个句子：Public Event HotKeyPress(ByVal HotKeyIndex As Long, ByVal HotKey As Long, ByVal hCtrl As Boolean, ByVal hAlt As Boolean, ByVal hShift As Boolean)Dim WithEvents CtlTimer As Timer        '用于启动死循环的定时器RaiseEvent HotKeyPress(I, HotKeys(I), hCtrls(I), hAlts(I), hShifts(I))Dim WithEvents hk As cHotKey以上4句在VB中呈现红色错误，没法用啊，VB如何修改以上4句

Answer 1

整個要放在一個 class 裏面，RaiseEvent 是語句，要放在一個過程/函數內。