ArrayList Problem

[bapu2889]

Hello I have this small but confusing exercise and what i want to do is when form loads it displays all the widgets in one listbox(small and big) and in second one I just want to display small widgets so could you please help me with this code is as bellow

Imports System.Collections.Generic
Imports System.Text
Imports System.Collections

Public Class Form1

Private Sub Form1\_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim colBoxesOfWidgets As New ArrayList()
    colBoxesOfWidgets.Add(New BoxOfWidgets("Cardboard"))
    DirectCast(colBoxesOfWidgets(0), BoxOfWidgets).colWidgets.Add(New Widget("The Blue Widget", 12))
    DirectCast(colBoxesOfWidgets(0), BoxOfWidgets).colWidgets.Add(New Widget("The Red Widget", 15))
    DirectCast(colBoxesOfWidgets(0), BoxOfWidgets).colWidgets.Add(New Widget("The Silver Widget", 6))
    DirectCast(colBoxesOfWidgets(0), BoxOfWidgets).colWidgets.Add(New Widget("The Green Widget", 52))

    colBoxesOfWidgets.Add(New BoxOfWidgets("Metal"))
    DirectCast(colBoxesOfWidgets(1), BoxOfWidgets).colWidgets.Add(New Widget("The Gold Widget", 9))
    DirectCast(colBoxesOfWidgets(1), BoxOfWidgets).colWidgets.Add(New Widget("The Orange Widget", 115))
    DirectCast(colBoxesOfWidgets(1), BoxOfWidgets).colWidgets.Add(New Widget("The Pink Widget", 1))

    colBoxesOfWidgets.Add(New BoxOfWidgets("Metel"))
    DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The Grey Widget", 12))
    DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The Black Widget", 15))
    DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The White Widget", 19))
    DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The Brown Widget", 60))
    DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The Peach Widget", 16))

    Call GetRidOfTheSmallWidgets(colBoxesOfWidgets)



End Sub

Public Function GetRidOfTheSmallWidgets(ByVal colBoxesOfWidgets As ArrayList) As ArrayList

   For J As Integer = 0 To colBoxesOfWidgets.Count - 1
      ListBox1.Items.Add(DirectCast(colBoxesOfWidgets(J), \_
      BoxOfWidgets).colWidgets.Add(J))

   Next      :confused:
 
   Return (colBoxesOfWidgets)

End Function

End Class

Class BoxOfWidgets
Public boxType As String
Public colWidgets As ArrayList

Publ