Office 2010下VBA Addressof的应用

在VBA中Addressof不能在Class或Form中使用，只有Module模式下才能使用Addressof以面是一个计时器的例子：

Form1中代码：

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPublic mHandle As LongPublic Sub test()    mHandle = SetTimer(0, 0, 2000, AddressOf MyTimerProce)End SubPublic Sub MyTimerProce(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)    MsgBox "hello"End Sub