سؤال عن حساب عدد TextBox

[اسامةمحمد]

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

 

كيف يمكنني بواسطة كود حساب او معرفة عدد التيكست بوكس في اليوزرفورم

[شوقي ربيع]

Private Sub CommandButton1_Click()
Dim cTxt As Control
Dim iNm As Integer
For Each cTxt In Me.Controls
If TypeName(cTxt) = "TextBox" Then iNm = iNm + 1
Next
MsgBox "Number Textbox this Userform is " & iNm
End Sub

[اسامةمحمد]

سلمت يمينك استاذ ربيع وجُزيت الجنة

 

هو المطلوب