' For..Next Schleife
Private Function ListItemExists(List1 As Control, ByVal Item As String) As _
  Integer
  Dim nIndex As Integer
  Dim i As Integer
 
  nIndex = 0
  With List1
    For i = 0 To .ListCount - 1
      If .List(i) = Item Then
        nIndex = i: Exit For
      End If
    Next i
  End With
  ListItemExists = nIndex
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de