Gör en label vid namn Label1 och en Timer vid namn Timer1
Dim tal as Integer
Private Sub Form_Load()
tal = 50
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If Not tal = 0 Then
Label1.Caption = "Just nu på: " & tal
tal = tal - 1
End If
End Sub
