Select Case pControlType
            Case eTypeOfControl.eTextBox
                Return New System.Windows.Forms.TextBox
            Case eTypeOfControl.eButton
                Return New System.Windows.Forms.Button
        End Select

Public Function CreateControl() As System.Windows.Forms.Control
        ' Wenn nicht alle korrekt ist, darf das Control nicht erzeugt werden
        If Not AllOK() Then
            Err.Raise(1001, "CreateControl", "Control konnte nicht erstellt" & _
              "werden")
            Exit Function
        End If
 
        ' Nur ein Control pro Instanz der Klasse
        If bCreated Then
            CreateControl = Me.ControlObject
            Exit Function
        End If
 
        bCreated = True
 
        Select Case pControlType
            Case eTypeOfControl.eTextBox
                m_oTextBox = m_oForm.Controls.Add(GetControlClassName)
                m_oTextBox.Name = m_sName
                CreateControl = m_oTextBox
            Case eTypeOfControl.eButton
                m_oButton = m_oForm.Controls.Add(GetControlClassName)
                m_oButton.Name = m_sName
                CreateControl = m_oButton
        End Select
 
End Function