アクセス For Eachの時点 絞る

質問

For Eachの時点で、コマンドボタンのみに絞ることは可能ですか？

Sub Sample()
Dim myFormName As String
Dim ctl As Control

myFormName = "フォーム1"

For Each ctl In Forms(myFormName).Controls
Debug.Print ctl.Name
Next ctl

End Sub

これでフォーム上の全てのコントロール名を取得できますが
ループの時点でコマンドボタンのみを抽出できますか？

For Each ctl In Forms(myFormName).Controls
If ctl.ControlType = acCommandButton Then
Debug.Print ctl.Name
End If
Next ctl

こうすれば、コマンドボタンのみ絞れますが
コントロールの数が多すぎて、処理に時間がかかります。

なので
For Each ctl In Forms(myFormName).Controls
の部分の、ループの時点でコマンドボタンを絞りたいのですが
絞れる方法があれば教えてください。

回答No.1

UJQBKITECHXNW

多分不可能です