vbAccelerator - Contents of code file: cStackLinkedObjectItem.cls

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

' cStackLinkedObjectItem
' Bruce McKinney from Hardcore Visual Basic

Private m_sItem As String
Private m_cNextLink As cStackLinkedObjectItem

Public Property Get Item() As String
   Item = m_sItem
End Property
Public Property Let Item(ByVal sItem As String)
   m_sItem = sItem
End Property
Public Property Get NextLink() As cStackLinkedObjectItem
   Set NextLink = m_cNextLink
End Property
Public Property Let NextLink(ByRef cLink As cStackLinkedObjectItem)
   Set m_cNextLink = cLink
End Property