www.jbaron.tk

Put a textbox and a button on a form, set the textbox's Multiline property to True, and then paste in this code:

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

www.jbaron.tk

you're welcome