Public X As Long
Public Y As Long

Private newPoint As clsPoint
Private allPoints As New Collection

Private Function AddPoint(Byval nX As Long, Byval nY As Long) As Boolean
 
     AddPoint = False
 
     Set newPoint = New clsPoint
     With newPoint
          .X = nX
          .Y = nY
     End With
     On Error Resume Next
     allPoints.Add newPoint,"Trim(Str(nX)) & "/" & Trim(Str(nY))
 
      If Err.Number > 0 Then 'Punkt existiert!
               Exit Function
      End If
 
      AddPoint = True
End Function
 
Private Function DelPoint(Byval nX As Long, Byval nY As Long) As Boolean
      Dim bErg As Boolean
      Dim sKey As String
 
      DelPoint = False
      sKey = Trim(Str(nX)) & "/" & Trim(Str(nY))
 
      On Error Resume Next
      allPoints.Delete sKey
       If Err.Number > 0 Then Exit Function
 
       DelPoint = True
End Function

xWert = allPoints(Index).X
yWert = allPoints(Index).Y