This is for Outlook 2000 VBA.
Can you check what I am doing wrong with following code. It will not fire the Sub TimerProc:
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public lngRet As Long
Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Debug.Print "Hiiiiiii"
KillTimer 0&, lngRet
End Sub
Public Sub test()
lngRet = SetTimer(0, 0, 100, AddressOf TimerProc)
End Sub
Can you check what I am doing wrong with following code. It will not fire the Sub TimerProc:
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public lngRet As Long
Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Debug.Print "Hiiiiiii"
KillTimer 0&, lngRet
End Sub
Public Sub test()
lngRet = SetTimer(0, 0, 100, AddressOf TimerProc)
End Sub