VB调用 SetTimer 失败，附源码，等高手解答

窗体代码：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Dim lngTimerID As Long
Dim hwnds As Long
Private Sub Command1_Click()
hwnds = FindWindow(vbNullString, "Program manager")
lngTimerID = SetTimer(hwnds, 0, 2000, AddressOf TimerProc)
If lngTimerID > 0 Then
MsgBox "启用定时器成功"
Else
MsgBox "启用定时器失败"
End If
End Sub
Private Sub Command2_Click()
KillTimer hwnds, lngTimerID
End Sub

模块代码：
Function TimerProc()
MsgBox Now
End Function

错误了