List1.Items.Clear
List1.Items.AddRange(al1.ToArray)
ИЛИ,
List1.Items.Clear
For each obj as object in al1
List1.Items.Add(obj)
Next
Или,
List1.Items.Clear
For i as Integer = 0 to al1.count-1
List1.Items.Add(al1(i))
Next
Вам придется переопределить ToString вашего объекта в Arraylist.Вам нужно будет сделать шрифт в виде списка фиксированным, чтобы вы могли использовать интервалы (Courier New).
Я бы предложил использовать Generic.List (Of clsCustomer), однако, если его нет в назначении, вы застрянете в типизированииобъекты в arraylist.
Это все еще оставляет тонну деталей для решения этого задания, однако.
Удачи.