Outlook Module Codes Error: Not Defined. 1

[2manyerrors]

Hi all, hope someone can help me here,

I'm running some codes in outlook 2003 and is getting an error. The error says that KillTimer is not defined. Can you someone help here?

My codes are below. Thanks for any help.

Dim lngTimerID As Long

Private Sub Application_Quit()
lngTimerID = KillTimer(0, lngTimerID)
End Sub

Private Sub Application_Startup()
lngTimerID = SetTimer(0, 0, 3600000, AddressOf TimerProc)
End Sub

 

[JustinEzequiel]

Declare Function KillTimer Lib "user32" Alias "KillTimer" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Declare Function SetTimer Lib "user32" Alias "SetTimer" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

 

[2manyerrors]

Perfect!! Thank you so much.