Public Function IsKeyInCol(cCol As Collection, sKey As String) As Boolean
   Dim bDummy As Boolean
 
   On Error Resume Next
   bDummy = IsObject(cCol(sKey))
   IsKeyInCol = (Err = 0)
   On Error GoTo 0
End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control