Private Sub Command1_Click()Dim ctl As ControlDim ctlcount As IntegerFor Each ctl In Controls Text1.Text = Text1.Text & ctl.Name & vbCrLf ctlcount = ctlcount + 1NextText1.Text = Text1.Text & ctlcountEnd Sub
Private Sub Command1_Click()Dim ctl As ControlDim ctlcount As Integer
For Each ctl In Controls Text1.Text = Text1.Text & ctl.Name & vbCrLf ctlcount = ctlcount + 1NextText1.Text = Text1.Text & ctlcount
End Sub