CIntegerArray Class

Option Explicit

Private items() As Integer
Private size As Integer

Public Sub addElement(ByVal element As Integer)

    ReDim Preserve items(size)
    items(size) = element
    size = size + 1
    
End Sub

Public Function getSize() As Integer
    getSize = size
End Function

Public Function getElement(ByVal index As Integer) As Integer
    If index >= size Or index < 0 Then
        MsgBox "Error with index out of range"
        getElement = 0
    Else
        getElement = items(index)
    End If
End Function

Private Sub Class_Initialize()
    size = 0
End Sub

'Example use

Private Sub Command2_Click()

    Dim newArray As CIntegerArray
    
    Set newArray = New CIntegerArray
    
    newArray.addElement 33
    newArray.addElement 34
    
    MsgBox newArray.getSize
    MsgBox newArray.getElement(2)
    
    Dim newArray2 As CIntegerArray
    Set newArray2 = New CIntegerArray
    
    newArray2.addElement 13
    newArray2.addElement 444
    
    MsgBox newArray2.getSize
    MsgBox newArray2.getElement(1)
    
    Dim a(10) As CIntegerArray
    
    Dim i As Integer
    For i = 0 To 10
        Set a(i) = New CIntegerArray
    Next i
    
    a(4).addElement 23
    a(4).addElement 45
    
    a(5).addElement 455
    a(5).addElement 34
    a(5).addElement 555
    a(5).addElement 66
   
End Sub