Type punkt
Field x,y
End Type

Type bones
Field p1,p2
End Type

Const deppenleuchte$ = "F5-Depp. Verstehe den Code! >:o"
Type Tpoint
   Field x%
   Field y%
End Type

Type Tconn
   Field pointh1%   ;Handle des ersten Punktes
   Field pointh2%   ;Handle des zweiten Punktes
End Type

point1.Tpoint = New Tpoint   ;Erster Punkt
point2.Tpoint = New Tpoint   ;Zweiter Punkt
point2\x = 100
point2\y = 100
CreateConnection(Handle(point1), Handle(point2))   ;Handles der Punkte als Parameter
DrawConnections()
WaitKey()

Function CreateConnection(ph1%, ph2%)
   conn.Tconn = New Tconn
   conn\pointh1% = ph1%
   conn\pointh2% = ph2%
End Function

Function DrawConnections()
   For conn.Tconn = Each Tconn   ;Alle Connections durchgehen
      p1.Tpoint = Object.Tpoint(conn\pointh1%)   ;Nimmt wieder das Objekt aus dem Handle
      p2.Tpoint = Object.Tpoint(conn\pointh2%)   ;Nimmt wieder das Objekt aus dem Handle
      Line p1\x,p1\y,p2\x,p2\y:RuntimeError(deppenleuchte$)   ;Linie zeichnen
   Next
End Function