How To Use Do-While-Loop

السلام عليكم

مشكوووووور

واسمح لى أن أعرض كود برنامجك فى هذه المشاركة حتى يتسنى للجميع رؤيته :

Private Sub Cmd1_Click()
Counter = 0
Do While Counter <> 30
Counter = Counter + 1
Text1.SetFocus
Text1.Text = CStr(Counter)
MsgBox "احسب عدد ايام شهر ابريل", vbInformation, "حلقة"
Loop
End Sub