sigurno te ovo muci :
dodaj jedan Label, timer[enabled = false,interval = 1000] i dugme i upisi:
Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
If Label1.Caption = 60 Then...