Option Explicit
 
Private mlngButtonNr As Long
 
Public Property Let plngButtonNr(l As Long)
    mlngButtonNr = l
End Property
 
Private Sub Command1_Click()
    mlngButtonNr = 0
 
    Set Form2.pfrmParent = Me
    Form2.Show vbModal
 
    Select Case mlngButtonNr
        Case 1: MsgBox "Form2.Command1"
        Case 2: MsgBox "Form2.Command2"
        Case Else:  MsgBox "Kein Button"
    End Select
End Sub

Option Explicit
 
Private mfrmParent As Form
 
Public Property Set pfrmParent(f As Form)
    Set mfrmParent = f
End Property
 
Private Sub Command1_Click()
    mfrmParent.plngButtonNr = 1
    Unload Me
End Sub
 
Private Sub Command2_Click()
    mfrmParent.plngButtonNr = 2
    Unload Me
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1