Declare Function SetTimer Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal nIDEvent As Long, _
  ByVal uElapse As Long, _
  ByVal lpTimerFunc As Long) As Long

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

Private lng As Long

Sub TimerProc( _
  ByVal hwnd As Long, _
  ByVal lngMsg As Long, _
  ByVal lngID As Long, _
  ByVal lngTime As Long)
    MsgBox "Test"
End Sub

Sub StartTimer()
    lng = SetTimer( 0 ,  0 ,  10000 , AddressOf TimerProc)
End Sub

Sub EndTimer()
    If lng <>  0  Then
        KillTimer  0 , lng
    End If
End Sub