Private Wall As clsWall
Private Walls As New Collection
 
'SetWal setzt ein Label auf Collisionserkennung
'oLbl ist Parameter für das Label
Private Sub SetWAll(Byref oLbl As Label)
    Static n
 
    n  = n + 1
    Set Wall = New clsWall
 
    With Wall
         .WallID = n
         Set .Wall = oLbl
    End With
 
    Walls.Add Wall,Cstr(n)
End Sub