LoopInfo.cls

' Creole Forth for VB
' Version 0.01
' Copyright 2021 Joseph M. O'Connor
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.

Option Explicit
Dim iReturnVal As Integer
Dim sLabel As String
Dim iIndex As Integer
Dim iLimit As Integer

Public Property Let Label(Value As String)
    sLabel = Value
End Property

Public Property Get Label() As String
    Label = sLabel
End Property

Public Property Let Index(Value As Integer)
    iIndex = Value
End Property

Public Property Get Index() As Integer
    Index = iIndex
End Property

Public Property Let Limit(Value As Integer)
    iLimit = Value
End Property

Public Property Get Limit() As Integer
    Limit = iLimit
End Property