ساخت شمارش معکوس بصورت خودکار

[omid-j]

از اساتید محترم خواهشمند است در خصوص ساخت شمارش معکوس بر روی یک باتن بصورت خودکار را به این بنده حقیر یاد بدهید با تشکر

[omid-j]

قابل توجه کاربران محترم بلاخره شمارش معکوس رو پیدا کردم منتها هنوز کمی ناقص هستش شما کاملش کنید از دستورات ذیل استفاده کردم
Private Sub Form_Open(Cancel As Integer)
Text0 = "10"
End Sub
Private Sub Form_Timer()
Text0.SetFocus
Text0.Text = Text0.Text - 1
If Text0.Text <= 0 Then
Text0 = time()
ElseIf Text0 = 1 Then
Me.but.Enabled = True
'Me.Text0.Visible = False
End
End If
End Sub

[aromega65]

سلام
دوست من اینم بخاطر ایمیلی که فرستادی
امیدوارم همونی باشه که میخواستی

86342

[omid-j]

دوست عزیز از لطف شما کمال تشکر دارم ممنونم که کمکم کردین
اگر که کد رهگیری بخواهم درست کنم باید چکار کنم