[سامي محمد]

أعتقد أن الكود الأسهل هو :

كود :

    Dim S As Single
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        S += 0.001
        If S >= 10 Then S = 0.000
        TextBox1.Text = S.ToString("0.0@0@0").Replace("@", ".")
    End Sub