新建From1（窗体），新建Command1（按钮CommandButton），Label1（LabelBox），Text1（TextTxt）代码：

Private Sub Command1_Click()
    Dim cn As Control
    For Each cn In Form1
        Select Case TypeName(cn)
        Case "CommandButton"
            MsgBox "这是一个按钮，名称为：" + cn.Name
        Case "PictureBox"
            MsgBox "这是一个图片框，名称为：" + cn.Name
        Case "Label"
            MsgBox "这是一个标签，名称为：" + cn.Name
        Case "TextBox"
            MsgBox "这是一个文本框，名称为：" + cn.Name
        Case "CheckBox"
            MsgBox "这是一个复选框，名称为：" + cn.Name
        End Select
    Next

End Sub