[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم هذه بطريقة الـ If وهي ليست معقدة كما تقول  وقد جربتها حتى الرقم 9999 وبعدها يتم التصفير من جديد 
الكود عبارة عن جمل if متداخلة

كود :

  Dim aa As Integer = 0
   Dim bb As Integer = 0
   Dim cc As Integer = 0
   Dim dd As Integer = 1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       aa += 1
       If aa = 10 Then
           aa = 0
           bb += 1
           If bb = 10 Then
               bb = 0
               cc += 1
               If cc = 10 Then
                   cc = 0
                   dd += 1
                   If dd = 10 Then
                       dd = 0 ' هنا يتم التصفير والاعادة من جديد
                   Else
                       dd += 1
                   End If
               End If
           End If
       End If
       TextBox1.Text = dd & "." & cc & "." & bb & "." & aa
   End Sub