vb timer stopper

Hej

Jeg skal bruge en timer, der ikke stopper når jeg der åbnes en anden dialogbox...

Som det ses at min kode har jeg både prøvet med vb timer og en api timer men de stopper begge to ved linien "Send = FaxDoc.Send()"

nogen der kan hjælpe......

----------- modul ------------
Option Explicit
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

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


Public Sub MyTimer(hwnd As Long, msg As Long, idTimer As Long, dwTime As Long)
Static i As Integer

    i = i + 1
    Form1.TimerLabel.Caption = Format$(i)
End Sub


------------- form -----------------------------

Option Explicit

Private TimerID As Long

Private Sub cmd_SendFax_Click()
    Dim Send As Integer
    Dim FaxServ As FAXCOMLib.FaxServer
    Dim FaxDoc As FAXCOMLib.FaxDoc
   
    Dim RetVal As Long
    Dim TS As String

    TS = String(100, " ")
    RetVal = GetComputerName(TS, 100)
    TS = Left(TS, InStr(1, TS, Chr(0)) - 1)

    Set FaxServ = New FAXCOMLib.FaxServer
    FaxServ.Connect (TS)
    Set FaxDoc = FaxServ.CreateDocument("C:\fax.tiff")
    FaxDoc.FileName = "c:\fax.html"
    FaxDoc.FaxNumber = "23456789"
   
'    Timer1.Enabled = True
 
    Send = FaxDoc.Send()
'    SendKeys "{ENTER}"

End Sub

Private Sub cmdStart_Click()
Static running As Boolean
Dim pause As Long

    If running Then
        ' Stop the timer.
        KillTimer 0, TimerID
        cmdStart.Caption = "Start"
        RunningLabel.Caption = "Stopped"
    Else
        ' Start the timer.
        pause = CLng(PauseText.Text)
        TimerID = SetTimer(0, 0, pause, _
            AddressOf MyTimer)
        cmdStart.Caption = "Stop"
        RunningLabel.Caption = "Running"
    End If
    running = Not running
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 1000
End Sub

Private Sub Form_Unload(Cancel As Integer)
'    If TimerID <> 0 Then KillTimer 0, TimerID
End Sub

Private Sub Timer1_Timer()
'  SendKeys "{ENTER}"
  Timer1.Enabled = False
  Text1.Text = "timer1 aktivers"
End Sub