' This class sets up the type of objects that will be pushed onto the stack used by the ' parser. Each StackInfoClass object contains a Token and the number of tabs by which to ' indent it when printing it out. Public Class StackInfoClass Public Token As TokenClass Public NumTabs As Integer Public Sub New(ByVal TokenValue As TokenClass, ByVal NumTabsValue As Integer) Token = TokenValue NumTabs = NumTabsValue End Sub Public Overrides Function ToString() As String Dim Temp As String Dim k As Integer Temp = "" For k = 1 To NumTabs Temp = Temp & " " Next Temp = Temp & Token.Item Return Temp End Function End Class