您可以尝试做这样.

You can try doing it this way.

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    If Button.Caption = "save" Then
        Call mySave
    ElseIf Button.Caption = "new" Then
        Call myNew
    End If
End Sub

Sub mySave()
    If Me.ActiveForm Is Nothing Then Exit Sub
    Dim f As Form
    Set f = Me.ActiveForm
    Select Case f.Name
        Case "Form1"
            ''do your save for form1
        Case "Form2"
            ''do your save for form2
    End Select
End Sub

Sub myNew()
    If Me.ActiveForm Is Nothing Then Exit Sub
    Dim f As Form
    Set f = Me.ActiveForm
    Select Case f.Name
        Case "Form1"
            ''do your new for form1
        Case "Form2"
            ''do your new for form2
    End Select
End Sub