קח את הקוד של השניות שרצות לאחור
תוסיף לפורם שעון Timer ותווית Label Option Explicit Dim intTmp% Private Sub Form_Load() Timer1.Interval = 1000 intTmp = 60 End Sub Private Sub Timer1_Timer() If intTmp < 0 Then intTmp = 60 Label1 = intTmp - Second(Time) End Sub בהצלחה
