主题：菜单保存按钮请教

Dim t As String = args(0)
Select Case t
    Case "保存1"
        Forms("窗口1").Controls("button1").PerformClick     
    Case "保存2"
        Forms("窗口1").Controls("button2").PerformClick
    Case Else
        Forms("窗口1").Controls("button1").PerformClick
        Forms("窗口1").Controls("button2").PerformClick
End Select

----------

调用

Functions.Execute("函数", "")