Remotly Click Command Button

اجرای باتنی در سابفرم بدون کلیک روی آن 

Public Function New_Main() As Form
    Set New_Main = New Form_frmMain
End Function


Sub Test()
    Dim mm As Form
    
    Set mm = New_Main
    Debug.Print mm.Controls.Count
    
    With mm.Form("frmSub")
        Debug.Print .Controls.Count
        Debug.Print .Controls("CommandButton1").Enabled
        .Form.CommandButton1_Click
    End With

End Sub