Visual Basic For Döngüsü İle Sayaç Oluşturma

[turkmedia]

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For basamak1 = 0 To 9
            LblB1.Text = basamak1
            For bekle = 0 To 10000000 'Her adımda beklemeyi sağlar.
            Next
            LblB1.Refresh() 'Etiketin (Label) tazelenmesi. Yeni sayıyı her adımda göstermesi için gereklidir.
            For basamak2 = 0 To 9
                LblB2.Text = basamak2
                For bekle = 0 To 10000000
                Next
                LblB2.Refresh()
                For basamak3 = 0 To 9
                    LblB3.Text = basamak3
                    For bekle = 0 To 10000000
                    Next
                    LblB3.Refresh()
                Next
            Next
        Next
    End Sub
End Class