[hannileo]

السلام عليكم ورحمة الله وبركاته 


اخواني ما هو بديل هذا الكود 

كود :

If LblDay.Caption = "1" Or LblDay.Caption = "2" Or LblDay.Caption = "3" Or LblDay.Caption = "4" Or LblDay.Caption = "5" Then

TxtTotal.Text = txtday.Text
txtdip.Text = txtlimday.Text

End If

حيث انه يجب ان يكون من 1 الى 29  انا كتبته الى رقم 5 للاختصار قليلا 
اي ان الكود طويل جدا 
كيف اقول بتغير الكود الى حلقة For Next

وشكرا جزيلا لكم