load textbox if combobox is readonly

app/DD_PM_WINDREAM/frmValidator.vb

@@ -622,7 +622,10 @@ Public Class frmValidator
                         oMyControl = ClassControlCreator.CreateExistingLabel(oControlRow, False)
                     Case "CMB"
                         LOGGER.Debug("Versuch CMB zu laden")
-
+                        If oControlRow.Item("READ_ONLY") Then
+                            Dim cmbReadonly = ClassControlCreator.CreateExistingTextbox(oControlRow, False)
+                            oMyControl = cmbReadonly
+                        Else
                             Dim cmb = ClassControlCreator.CreateExistingCombobox(oControlRow, False)
 
                             AddHandler cmb.SelectedValueChanged, AddressOf OnCmbselectedIndex
@@ -762,6 +765,9 @@ Public Class frmValidator
                             cmb.DropDownWidth = maxWith
 
                             oMyControl = cmb
+                        End If
+
+
 
                     Case "DTP"
                         LOGGER.Debug("Versuch DTP zu laden")