للتحكم فى بعض الأدوات على الفورم دون باقى الأدوات

 Public Sub Del()

Dim i As Integer

Do While (i < Me.Controls.Count)

If Me.Controls(i).GetType().Name = "TextBox" And Me.Controls(i).Name <> "pp" Then

Me.Controls(i).Dispose()

i = 0

Else

If Me.Controls(i).GetType().Name = "Label" Then

Me.Controls(i).Dispose()

i = 0

End If

End If

i += 1

Loop

End Sub

فما معنى أو ما لزمه i = 0 ما هيه اصلاً = صفر لماذا بجعلها = 0 وإن قلت لكى عندما نزيد i بالسطر I += 1 يتطلب أن نرجع قيمة i إلى الصفر!!! لو كان كذلك إذا هذا اللوب لن لن لن تنتهى .

فما لزمة I = 0

طبعا لزمة I +=0 بسبب ان Do While مش بتزود قيمة I من تلقاء نفسها مثل For.....Next صح أم خطأ؟ ؟