' alle TextBox-Controls des angegebenen Container-Objekts zurücksetzen, 
' wobei auch weitere Container-Controls innerhalb des Container-Objekts
' berücksichtigt werden sollen
Private Sub ResetTextBox(ByVal oContainer As Object, _
  Optional ByVal bSubContainerAlso As Boolean = True)
 
  If Not IsNothing(oContainer) Then
    ' alle Controls des Container-Objekts durchlaufen
    For Each oControl As Control In oContainer.Controls  <---- hier die Meldung _
      wegen spätes binden und so...
      ' Falls es sich um ein Container-Control handelt und die 
      ' TextBox-Controls ebenfalls zurückgesetzt werden sollen, muss
      ' die Funktion ResetTextBox rekursiv erneut aufgerufen werden
      If bSubContainerAlso AndAlso oControl.Controls.Count > 0 Then
        ResetTextBox(oControl)
      Else
        ' Sofern es sich um ein TextBox-Control handelt...
        If TypeOf oControl Is TextBox Then
          ' ... Inhalt löschen
          oControl.Text = ""
        End If
      End If
    Next 
  End If
End Sub

VB@rchiv its the Best