Option Explicit
Public button As Integer
 
Private Sub Command1_Click()
  button = 1
  Me.Hide
End Sub
 
Private Sub Command2_Click()
  button = 2
  Me.Hide
End Sub
 
Private Sub Command3_Click()
  button = 3
  Me.Hide
End Sub
 
Private Sub Command4_Click()
  button = 4
  Me.Hide
End Sub
 
Private Sub Form_QueryUnload(...)
  If UnloadMode <> 1 Then
    ' Klick auf X in der Titelzeile
    button = 0
    Cancel = True
    Me.Hide
  End If
End Sub

Private Sub Command1_Click()
  Dim button As Integer
 
  Load frmMit4Buttons
  With frmMit4Buttons
    .Show vbModal
    button = .button
  End With
  Unload frmMit4Buttons
 
  Select Case button
    Case 1
      ...
    Case 2 
      ...
    Case 3
      ...
    Case 4
      ...
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de