[ Φόρμες ] Χρονόμετρο αντίστροφης μέτρησης

[dimitris p]

Καλημέρα σε όλα τα μέλη.
Τάσο ευχαριστώ για την άμεση ανταπόκριση στο μήνυμά μου.
Έφτιαξα τη φόρμα όπως είπες και λειτουργεί σωστά εκτός από το κουμπί Pause.
Όταν το πατάω βγάζει το εξής μήνυμα.

Run time error 438
Object doesn't support this property or method

Το χρονόμετρο βέβαια συνεχίζει να λειτουργεί μέχρι να μηδενιστεί.

Private Sub cmdPause_Click()
IsPaused = Me.cmdPause 'Σε αυτό το σημείο σταματά ο κώδικας
If IsPaused Then
Me.cmdPause.Caption = "> Resume"
Else
Me.TimerInterval = 1000
Me.cmdPause.Caption = "II Pause"
End If
End Sub


Φιλικά Δημήτρης