Dim np(3) As Notenwerte
 
  np(0).pausen = "A"
  np(0).noten = 1
  np(1).pausen = "B"
  np(1).noten = 2
  np(2).pausen = "C"
  np(2).noten = 3
  np(3).pausen = "D"
  np(3).noten = 4
 
 
  Dim np_perm As List(Of Notenwerte()) = _
      Permutationen_Ohne_Wiederholung(np)