Option Explicit 
'
Private Sub Form_Load() 
    Timer1.Interval = 60000 
    Timer1.Enabled = True 
End Sub 
'
Private Sub Timer1_Timer() 
    Static iCpt As Integer 
    iCpt = iCpt + 1 
    If iCpt = 60 Then 
        Timer1.Enabled = False 
        MsgBox "Temps d'utilisation expiré", vbExclamation, _ 
               "Fermeture de l'application" 
        Unload Me 
    End If 
End Sub 
 

Coloration syntaxique automatique [AFCK]
       

PCPT  [AFCK]