'*** clsTextBox***
'Objekte mit Ereignissen
Public WithEvents TxtBox As TextBox
Public WithEvents DatList As dataList
 
Private Sub TxtBox_GotFocus()
 
    Dim l As Long
 
    With TxtBox
        .SelStart = 0
        .SelLength = Len(.Text)
        .BackColor = Got_Backcolor
    End With
 
    l = setVisible_dataListADO(TxtBox, DatList)
 
End Sub
 
'*** Funktion in einem Modul ***
Public Function setVisible_dataListADO(tb As TextBox, dl As dataList) As Long
 
    With dl
        .Top = tb.Top + tb.Height + 50
        .Left = tb.Left
        .Width = tb.Width
        '.VisibleCount = 4
        .Visible = True
    End With
 
    setVisible_dataListADO = 0
 
End Function
 
'***Formular***
Option Explicit
Private tbReg(0 To 1) As clsTextBox
Private dlList As clsTextBox
 
 
Private Sub Form_Load()
 
    Set tbReg(0) = New clsTextBox
    Set tbReg(1) = New clsTextBox
    Set dlList = New clsTextBox
 
    Set dlList.DatList = dataListADO
 
    With tbReg(0)
        Set .TxtBox = txtName
        .IsNumeric = False
        .List = True
    End With
 
    With tbReg(1)
        Set .TxtBox = txtMaschine
        .IsNumeric = False
        .List = True
    End With
 
End Sub

Objektvariable oder With-Blockvariable nicht festgelegt (Fehler 91)