🚀 go-pugleaf

Copia questo codice in un form, aggiungi un controllo Timer e una 
Command-Button, dovrebbe funzionare.
Ciao.

'****************************************
Option Explicit
Public Ore As Integer
Public Minuti As Integer
Public Secondi As Integer
'*************************************
Private Sub Command1_Click()
Unload Me
End
End Sub
'************************************

Private Sub Form_Load()
    Timer1.Interval = 1000  'Imposta il Timer a 1 secondo
    Timer1.Enabled = True
    Label1.Caption = "Timer    "
    Label1.AutoSize = True
    Ore = 0
    Minuti = 0
    Secondi = 0
End Sub

'*******************************************
Private Sub Timer1_Timer()
'questa sub viene chiamata ad ogni secondo
            Secondi = Secondi + 1
If Secondi = 60 Then
            Minuti = Minuti + 1
    If Minuti = 60 Then
            Ore = Ore + 1
            Minuti = 0
    End If
            Secondi = 0
End If

   Label1.Caption = "     Ore : " & Ore & vbCrLf _
                  & "  Minuti : " & Minuti & vbCrLf _
                  & " Secondi : " & Secondi
End Sub

'*******************************************

"Antonio Rossetti" <antonio.rossetti@libero.it> ha scritto nel messaggio 
news:4374f42a$0$16217$4fafbaef@reader3.news.tin.it...
> Come posso fare a visualizzare in una label un contatore che parte da 0 e 
> conta i minuti? Vorrei fare in modo che appaia un msg quando si superano i 
> 15 min. Grazie per l'aiuto.
>