VB6 fermer le programme

louloukaika Messages postés 523 Statut Membre -  
Aligator_427 Messages postés 57 Statut Membre -
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.
Configuration: Windows Vista
Firefox 3.6

1 réponse

  1. Aligator_427 Messages postés 57 Statut Membre 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