<code><font color=#000099>Private</font> Wall <font color=#000099>As</font> _
  clsWall
<font color=#000099>Private</font> Walls <font color=#000099>As</font> <font _
color=#000099>New</font> <font color=#000099>Collection</font>
 
'SetWal setzt ein Label auf Collisionserkennung
'oLbl ist Parameter für das Label
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> SetWAll(Byref _
  oLbl <font color=#000099>As</font> Label)
    Static n
 
    n  = n + 1
    <font color=#000099>Set</font> Wall = <font color=#000099>New</font> clsWall
 
    <font color=#000099>With</font> Wall
         .WallID = n
         <font color=#000099>Set</font> .Wall = oLbl
    <font color=#000099>End</font> <font color=#000099>With</font>
 
    Walls.Add Wall,<font color=#000099>Cstr</font>(n)
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> DelWall(Byval _
  Index <font color=#000099>As</font> <font color=#000099>Long</font>)
       Walls(Index).Wall.Visible = <font color=#000099>False</font> '<---- nanu 
       ' ;-) nennt man Polymorphie.
       <font color=#000099>Set</font> Walls(Index) = <font _
         color=#000099>Nothing</font>
       Walls.Remove Index
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
'Alle Wall-Klassen auf die Eigenschaft: Collision checken und
'melden, welche Wall eine Collision hat. Das ist dann der Fall,
'wenn CheckCollision einen Wert größer als 0 hat.
<font color=#000099>Public</font> <font color=#000099>Function</font> _
  CheckCollision(Byref Target <font color=#000099>As</font> Object) <font _
  color=#000099>As</font> <font color=#000099>Long</font>
     <font color=#000099>Dim</font> obj <font color=#000099>As</font> clsWall
 
     CheckCollision = 0
     <font color=#000099>For</font> Each obj in Walls
         <font color=#000099>Set</font> obj.Target = Target
         Obj.MoveTarget
         <font color=#000099>If</font> Obj.Collision <font _
           color=#000099>Then</font>
             CheckCollision = obj.WallID
             <font color=#000099>Exit</font> <font color=#000099>For</font>
        <font color=#000099>End</font> <font color=#000099>If</font>
     <font color=#000099>Next</font>
<font color=#000099>End</font> <font color=#000099>Function</font>
</code>