Dim x As Long
Dim y As Long
Dim xOld As Long
Dim yOld As Long
 
For i = 1 To nPunkte
  x = Punkt(i).x
  y = Punkt(i).y
 
  If i > 1 Then UserControl.Line (xOld, yOld)-(x,y)
  xOld = x: yOld = y
Next i
If i > 1 Then UserControl.Line (xOld, yOld)-(x,y)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de