Public Function IsControlArray(ByVal sName As String) As Boolean
  On Error Resume Next
  Dim nBound As Integer
  nBound = Me.Controls(sName).UBound
  IsControlArray = (Err = 0)
  On Error GoTo 0
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de