[ناجي إبراهيم]

السلام عليكم...

كود :

Private Sub Command1_Click()
    Dim CtrlCount As Long
    Dim Ctrl As Control
    
    CtrlCount = 0
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Text = "4" Then
                CtrlCount = CtrlCount + 1
            End If
        End If
    Next Ctrl
    Label1.Caption = CStr(CtrlCount)
End Sub

العدد يظهر في Label.

نرجو الاستفادة و السلام.