Code:Private Sub Button1_Click() Handles Button1.Click Dim b As Double b = 0.02 For i = 0 To 300 Label1.Text = b Application.DoEvents() System.Threading.Thread.Sleep(300) b += 0.02 Next i End Sub
Geht bei mir einwandfrei!
Code:Private Sub Button1_Click() Handles Button1.Click Dim b As Double b = 0.02 For i = 0 To 300 Label1.Text = b Application.DoEvents() System.Threading.Thread.Sleep(300) b += 0.02 Next i End Sub
Geht bei mir einwandfrei!