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

Private lngID As Long

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

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

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