Hur gör jag för att få följande funktion:

Har ett formulär (frmMeny) som jag har 2 knappar i, cmd1 och cmd2

när jag trycker på cmd1 så skall frmMain laddas in och när ja trycker på cmd2 skall åxå frmMain laddas in, anledningen att ja har 2 knappar för att ladda frmMain är att det skall skilja på några saker i frmMain bara (visuelt skall det se lika ut)
Så hur gör jag för att i frmMain "känna av" om ja tryckte på cmd1 eller cmd2 ?


/peter

Formulär: frmMeny
<code>
Public Enum ShowFormButtonEnum
sfbButton1 = 1
sfbButton2 = 2
End Enum

Private mButton As ShowFormButtonEnum

Public Sub ShowForm(Button As ShowFormButtonEnum, Optional Modal As Variant, Optional OwnerForm As Variant)
mButton = Button
Me.Show Modal, OwnerForm
End Sub

Private Sub Form_Load()
Select Case mButton
Case sfbButton1
Me.Caption = "Button 1 pressed"
Case sfbButton2
Me.Caption = "Button 2 pressed"
End Select
End Sub
</code>

Form: frmMain
<code>
Private Sub cmd1_Click()
frmMeny.ShowForm sfbButton1
End Sub

Private Sub cmd2_Click()
frmMeny.ShowForm sfbButton2
End Sub

</code>
Eller om man skall kunna skapa flera instanser av frmMeny:
<code>
Private Sub cmd1_Click()
Dim frmForm as frmMeny
Set frmForm = New frmMeny
frmForm.ShowForm sfbButton1
End Sub

Private Sub cmd2_Click()
Dim frmForm as frmMeny
Set frmForm = New frmMeny
frmForm.ShowForm sfbButton2
End Sub

</code>


Detta kanske är lite väl avancerat. Men är ett bra sätt att göra det på.