请问大家把当前模块的各项控件分别调用一次的for语句怎么写阿

Question

如题

Answer 1

dim ctl as controlfor each ctl in controls
  ...
next

Answer 2

Dim Ctl As Control
    
    For Each Ctl In Controls
        MsgBox Ctl.Name
    Next

Answer 3

Dim Men As Object        
  For Each Men In MDIForm
                If TypeOf Men Is Menu Then   '是否是菜单项目
                
                    If Len(MoKuaiNo) = 3 Then  '顶层
                       If Men.Name = MoKuaiNo Then
                          Men.Enabled = True
                       End If
                    End If
                
                    If Len(MoKuaiNo) = 5 Then '第二层
                       If (Men.Name = MoKuaiNo) Or (Men.Name = Mid(MoKuaiNo, 1, 3)) Then
                           Men.Enabled = True
                        End If
                    End If
                  
                    If Len(MoKuaiNo) = 7 Then '第三层
                       If (Men.Name = MoKuaiNo) Or (Men.Name = Mid(MoKuaiNo, 1, 5)) Or (Men.Name = Mid(MoKuaiNo, 1, 3)) Then
                           Men.Enabled = True
                       End If
                    End If
                    
                 End If
            Next

Answer 4

那可不可以这样对另一个模块里面的控件操作，该怎么操作呢
我知道调用另一个模块里面的控件可以用"模块名.控件名",在这个循环里面该怎么用呢
=============================================================================dim ctl as controlfor each ctl in form2.controls
   ...
next