' #######################################
' Menü Text 1 (Text, Farbe & Form)
Public Property Let MText1(ByVal Text As String)
    menu_a = Text
    PropertyChanged "menua"
    lbutton(0).Caption = menu_a
End Property
 
Public Property Get MText1() As String
    MText1 = lbutton(0).Caption
End Property
 
Public Property Let MText1Color(ByVal NewColor As OLE_COLOR)
    menu_a_color = NewColor
    PropertyChanged "menuacolor"
    lbutton(0).ForeColor = NewColor
End Property
 
Public Property Get MText1Color() As OLE_COLOR
    MText1Color = lbutton(0).ForeColor
End Property
 
Public Property Let MText1Form(ByVal OpenForm As String)
    menu_a_form = OpenForm
    PropertyChanged "menuaform"
End Property
 
Public Property Get MText1Form() As String
    MText1Form = menu_a_form
End Property
' Menu Text1 Ende
' #######################################
...
Private Sub EnterPressed(ByVal KeyState As Boolean)
 
  If KeyState = True Then
     frmOptionen.Show
  End If
 
End Sub