Default Public ReadOnly Property Pupil(ByVal matrikel As Integer) As Pupil
         Get
            For Each p In myPupils
               If p.Matrikel = matrikel Then Return p
            Next
 
            Return Nothing
         End Get
      End Property

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
     System.EventArgs) Handles MyBase.Load
 
      Dim school As New SchoolHandler(1)
 
      school.Add("Mathe")
      school.Add("Deutsch")
 
      school.GetSeminarByID(0).Pupils.Add(New Pupil("Hans", 206000))
      school.GetSeminarByID(1).Pupils.Add(New Pupil("Bernd", 206011))
 
      school.ShowAllPupils()
 
      school.GetSeminarByID(0).Pupil(206000).Name = "Georg"
      school.GetSeminarByID(0).Name = "Sport"
 
      school.ShowAllPupils()
   End Sub