Saati çalıştırma ve durdurma

[hakki83]

Selamlar

Örnek dosyadaki butona basınca çalışan saat, aynı butona basınca durdurulacak şekilde düzenlenebilir mi? Teşekkürler.

 

[mahmut011]

Merhaba
deneyiniz

Dim kontrol As Boolean

Private Sub CommandButton1_Click()

kontrol = Not (kontrol)
Do While kontrol = True
CommandButton1.Caption = Time
DoEvents
Loop

End Sub

 

[hakki83]

Çok teşekkür ederim. Emeğinize sağlık.

 

[mahmut011]

Rica ederim