[elgokr]

مرحباً اخى aldery

يمكنك تحميل السورس من المرفقات

السورس المرفق لاصدار 2015

الادوات المستخدمة فى السورس :
1- Label
2- Button
3- Timer

الكود الموجود بالسورس

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Label1.Text = 20
       Timer1.Interval = 1000
       Timer1.Start()
       Button1.Enabled = False
       Button1.Text = "is working..."
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label1.Text -= 1
       If (Label1.Text <= 0) Then
           Timer1.Stop()
           Button1.Enabled = True
           Button1.Text = "start"
       End If
   End Sub

تحياتى لك

وتمنياتى لك التوفيق