عداد تنازلي

السلام عليكم

تفضل الكود /

Private Sub Form_Load()

هنا حدد الرقم الذي تريد إن يبدا العد التنازلي منه ، وإنا وضعت القيمة الإفتراضية 500 .

'

Label1.Caption = "500"

'

End Sub

Private Sub Timer1_Timer()

'

Label1.Caption = Label1.Caption - 1

'

End Sub

تحياتي

مشكور على الرد