use a list(of structure) instead of an arraylist

vb Code:
  1. Private Structure visit

  2.     Public PickUp As String

  3.     Public DropOff As String

  4.     Public Price As Decimal 'decimal ?

  5.     Public Sub New(ByVal pickup As String, ByVal dropoff As String, ByVal price As Decimal)

  6.         Me.PickUp = pickup

  7.         Me.DropOff = dropoff

  8.         Me.Price = price

  9.     End Sub

  10.     Public Overrides Function ToString() As String

  11.         Return String.Format("{0} To {1} = {2:c}", Me.PickUp, Me.DropOff, Me.Price)

  12.     End Function

  13. End Structure

  14.  
  15. Private visitList As New List(Of visit)

then to add to the list + your listbox:

vb Code:
  1. visitList.Add(New visit("1000am", "1030am", 10D))

  2. listbox1.items.add(visitList(visitList.Count - 1).ToString)