トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 1-25　フォーム上のコントロールのコレクションを取得する

Private Sub UserForm_Click() 'フォーム上の全コントロールの名前を取得
    Dim myCtl As MSForms.Control
    For Each myCtl In Me.Controls
        MsgBox myCtl.Name
    Next
End Sub

Private Sub UserForm_Click() 'フォーム上の全コントロールのタイプを取得
    Dim myCtl As MSForms.Control
    For Each myCtl In Me.Controls
        MsgBox TypeName(myCtl)
    Next
End Sub