Få en klokke til å telle ned

[Scix]

jeg kulle gjerne få en label til å telle ned fra t.d. 60 til 0. hvordan skal jeg gjøre det

[Scix]

bare gløm det, fikk det til

[aadnk]

Den enkleste måten er å slenge inn en timer og sette interval til 1000. Legg så denne koden inn:

 

Private Sub Form_Load()
Timer1.Tag = 60 ' hvor mangen sekund du skal telle ned
End Sub

Private Sub Timer1_Timer()

Label1.Caption = Timer1.Tag

Timer1.Tag = Timer1.Tag - 1
If Timer1.Tag <= 0 Then Timer1.Enabled = False

End Sub