Option Explicit
 
Private Const c_KEY_SEPERATOR As String = "****"
 
Private m_points As Collection
 
Private Sub Form_Load()
 
  Dim zeile As Integer
  Dim spalte As Integer
  Dim p As cPt
 
  Set m_points = New Collection
 
  For zeile = 0 To 39
    For spalte = 0 To 99
      Set p = New cPt
      p.X = CSng(spalte) * 3!
      p.Y = CSng(zeile) * 0.6!
      m_points.Add p, key_from_loc(p.X, p.Y)
    Next spalte
  Next zeile
 
  Me.ScaleMode = vbMillimeters
 
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
  Dim p As cPt
 
  On Error Resume Next
 
  Debug.Print "x: " & X
  Debug.Print "y: " & Y
 
  Set p = m_points(key_from_loc(X, Y))
 
  If Not p Is Nothing Then
    Me.Caption = "TREFFER   " & "x: " & CStr(X) & ", y: " & CStr(Y)
  Else
    Me.Caption = " -        " & "x: " & CStr(X) & ", y: " & CStr(Y)
  End If
 
End Sub
 
Private Sub Form_Paint()
 
  Dim p As cPt
 
  Me.ScaleMode = vbMillimeters
 
  For Each p In m_points
    Me.PSet (p.X, p.Y), vbBlue
  Next p
 
End Sub
 
Private Function key_from_loc(ByVal X As Single, ByVal Y As Single) As String
 
  X = Round(X, 0)
  Y = Round(Y, 1)
 
  Debug.Print "x: " & X
  Debug.Print "y: " & Y
 
  key_from_loc = CStr(X) & c_KEY_SEPERATOR & CStr(Y)
 
End Function

Option Explicit
 
Public X As Single
Public Y As Single

Gruß
Dirk

--
?Get it right the first time