Ajuda com cronômetro

[Lira_Renzo]

Pessoal, estou tentando fazer um cronometro simples mas ele não inicia a contagem de jeito nenhum. alguém pode me ajudar?
Dim countH As Long
Sub Globals
Dim countMM As Long
Dim countSEC As Long
Private lblChrono As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("capa")

'cria o chronometro
lblChrono.Text = NumberFormat(countH, 2, 0) & ":" & NumberFormat(countMM, 2, 0) & ":" & NumberFormat(countSEC, 2, 0)

End Sub


Sub timer1_tick()
countSEC = countSEC + 1
If (countSEC = 60) Then
countSEC = 0
countMM = countMM + 1
If (countMM = 60) Then
countMM = 0
countH = countH + 1
End If
End If
Return
End Sub

Sub btnChronoOn_Click
'btn aciona o crono
timer1.Interval = 1
timer1.Initialize("timer1", 1)
timer1.Enabled = True

End Sub

Valeu pessoal.

 

[Cableguy]

Timer é um dos poucos objecyos que deve ser declarado em "globals"

Depois de declarado, deve ser iniciado.
Timer1.initialize("timer1",1000)

Para ele ser activado, deve chamar o enable
Timer1.enabled = true

E então a cada tick a sub timer1_tick será chamada.

 

[Lira_Renzo]

Nossa, cableguy, valeu pela ajuda, mas sou iniciante e não estou conseguindo montar o timer no meu código.
no visual basic havia o button timer e tudo ficava mais facil, mas no B$A não tem o btn timer.

Como faço p montar o timer?

valeu pela força, abraço