VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsMenuEntry"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public BuilderUnit As String, Menu As String
Public Button As String, Unit As String

Private pKey As String, pLocation As String

Public Function GenerateKey() As String
    GenerateKey = Key
End Function

Public Property Get Key() As String
    'If pKey = "" Then _'
    pKey = BuilderUnit & " " & Menu & " " & Button & " " & Unit
    Key = pKey
End Property

Public Property Get Location() As String
    'If pLocation = "" Then _'
    pLocation = BuilderUnit & " " & Menu & " " & Button
    Location = pLocation
End Property
