Public Function ControlExists(oForm As Form, ByVal sName As String, Optional _
  ByVal nIndex As Variant) As Boolean
  Dim oControl As Control
  Dim bResult As Boolean
 
  bResult = False
  For Each oControl In oForm.Controls
    If oControl.Name = sName Then
      If IsMissing(nIndex) Then bResult = True: Exit For
      If oControl.Index = nIndex Then bResult = True: Exit For
    End If
  Next
 
  ControlExists = bResult
End Function

If  ControlExists(Form1, "Name_Eigenschaft_des_Controls", nem) Then

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de