- Crie um form, coloque um timer e um label

- Coloque o intervalo do timer para 60000

- No Evento Timer do Objeto timer coloque: label1.caption = label1.caption + 1

 

E era isso, seu caption será acrescentado em um a cada minuto, isso criará o efeito que vc quer, 1 hora e meia será 90 e uma hora e 31 minutos será 91.... e assim por diante.

 

Falows.

 

OBRIGADO - FUNCIONOU REDONDO DO JEITO QUE EU QUERIA FICO MUITO GRATO POR SUA AJUDA

em segundos:

Dim Tempo As Integer

Private Sub Form_Load()
With Me
  .Timer1.Interval = 1000 'CONTA DE SEGUNDO EM SEGUNDO
  .Timer1.Enabled = True 
  .Label1.Caption = "00"
nd With
End Sub

Private Sub Timer1_Timer()
With Me
  Tempo = Tempo + 1
    If Tempo = 60 Then ' VERIFICA SE O TEMPO É 60
       .Label1.Caption = .Label1.Caption + 1 'ACRESCENTA 1 A CADA MINUTO
       .Label1.Caption = Format(.Label1.Caption, "0#") ' FORMATA PARA DUAS CASAS
        Tempo = 0 'SE FOR 60 VOLTA PRA ZERO
    End If
      .Label2.Caption = Tempo 'MOSTRA O TEMPO DECORRIDO EM SEGUNDOS

End With
End Sub