diff --git a/DoorParameters/Compo.vb b/DoorParameters/Compo.vb
index 63c1812..8986bca 100644
--- a/DoorParameters/Compo.vb
+++ b/DoorParameters/Compo.vb
@@ -1642,7 +1642,7 @@ Public Class TextBoxDGCParam
    Sub New(sDDFName As String, sName As String, CurrCompo As Compo, sValue As String, ComboBox As ComboBoxParam, ComboValuelList As List(Of String), ConstList As List(Of String), TypeVar As String)
       MyBase.New(sDDFName, sName, CurrCompo, sValue, ComboBox, ComboValuelList, TypeVar)
       m_ConstList = ConstList
-      m_SelConst = m_ConstList(2)
+      m_SelConst = m_ConstList(0)
    End Sub
 
 End Class
@@ -1700,7 +1700,7 @@ Public Class TextBoxThicknessParam
    Sub New(sDDFName As String, sName As String, CurrCompo As Compo, sValue As String, ComboBox As ComboBoxParam, ComboValuelList As List(Of String), ConstList As List(Of ItemConstThickness), TypeVar As String)
       MyBase.New(sDDFName, sName, CurrCompo, sValue, ComboBox, ComboValuelList, TypeVar)
       m_ConstList = ConstList
-      m_SelConst = m_ConstList(0)
+      m_SelConst = m_ConstList(2)
    End Sub
 
 End Class