[pakos]

χαιρετω τους φιλους
εχω την παρακατω απλη προταση για την λυση

σε οποιαδηποτε φορμα προσθεσε ενα πεδιο π.χ. ora

σε διαδικασια συμβαντος με το χρονομετρο
και χρονικο διαστημα 125

προσθεσε τον παρακατω κωδικα

Private Sub Form_Timer()
Me.ora = Format(Time, "hh:mm:ss am/pm")
If Me.ora = #5:55:00 AM# Or Me.ora = #9:55:00 PM# Or Me.ora = #1:55:00 PM# Then
MsgBox ("Στα επόμενα πέντε (5) λεπτά θα κλείσει η εφαρμογή"), vbInformation, "Information"
End If
If Me.ora = #6:00:00 AM# Or Me.ora = #10:00:00 PM# Or Me.ora = #2:00:00 PM# Then
Application.Quit
End If
End Sub

θα σε πληροφορει και 5 λεπτα πριν

το πεδιο ora μπορεις να το εχεις και μη ορατο