Dim Time As Double = 0.3 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lblTime.Text = Time End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim i As Integer = 0 lblTime.Text = Time For i = 1 To 30 lblTime.Text -= 0.01 Threading.Thread.Sleep(100) Next End Sub
It loads, but then goes right to zero... I have the timer set to update every 1000 milliseconds in the properties menu for the timer, but it just blinked and it was over the first run without the Threading.Thread.Sleep.. I tried 1000, but it froze, I tried 10 and it blinked... I try 100 and it freezes, so I'm at a standstill with the timer for now.