Jabaco Source

Option Explicit 
Private myvalue As Integer
Public Sub CFoo(aval As Integer)
   myvalue = aval
End Sub
Public Function ToString() As String
   ToString = CStr(myvalue)
End Function

Jabaco Source

Option Explicit
Dim myList() As CFoo
Dim Count As Integer
Public Sub Add(obj As CFoo)
   Redim Preserve myList(0 To Count)
   myList(Count) = obj
   Count = Count + 1
End Sub
Public Function getItem(Index As Integer) As CFoo
   If Index >= Count Then
      Throw New IndexOutOfBoundsException("always look on the bright side of life!")
   Else
      getItem = myList(Index)
   End If
End Function

Jabaco Source

Option Explicit
Dim myList As CList
Public Sub Form_Load()
   myList = New CList
End Sub

Public Sub Command1_Click()
   
   Dim f As CFoo
   
   f = New CFoo(123)
   myList.Add f
   
   f = New CFoo(456)
   myList.Add f
Try: On Error Goto Catch
   'Attention here may occur an error :))
   
   f = myList.getItem(3)
   
   Exit Sub
   
Catch:
   If IsClass(Err, IndexOutOfBoundsException) Then
      Dim e As IndexOutOfBoundsException = Cast(Err, IndexOutOfBoundsException) 
      MsgBox e.getMessage
   Else
      MsgBox "nö"
   End If
   
End Sub