garvy , то есть при нажатии кнопки "сама кнопка" чётко знает, на какой форме она располагается и какое действие при вызове ожидает. Ну так и передавай про нажатию в параметрах и фамилию формы, и требуемое действие...
1.
2.
3.
4.
5.
6.
7.
Private Sub Кнопка1_Click()
' ...
FormName = Me.Name
ActionNeeded = "Действие1"
Call MyProcedure(FormName, ActionNeeded)
' ...
End Sub
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub MyProcedure(FormName, ActionNeeded)
Select Case FormName
Case "Форма1"
Select Case ActionNeeded
Case "Действие1"
Call Форма1_НужноеДействие1()
Case "Действие2"
'...
End Select
Case "Форма2"
' ...
End Select
End Sub
И пусть тебя не смущает формальная тавтология - потенциальный геморрой со всякоразными CallByName и протчая обойдётся дороже кажущейся изящности и лаконичности.
