VB6 fermer le programme

louloukaika Messages postés 466 Date d'inscription   Statut Membre Dernière intervention   -  
Aligator_427 Messages postés 54 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

C'est n'est pas pour demander la commande pour fermer un programme (end) c'est très simple mais je cherche un moyen de fermer mon application après 48 h, bien sur le timer ne supporte pas un délais aussi long donc si vous avez une idée.

1 réponse

Aligator_427 Messages postés 54 Date d'inscription   Statut Membre Dernière intervention   21
 
Option Explicit

Dim TimeOnLoad

Private Sub Form_Load()
TimeOnLoad = Now
Timer1.Interval = 10000
End Sub

Private Sub Timer1_Timer()
If DateDiff("h", TimeOnLoad, Now) >= 48 Then End
End Sub
1