Bu işlemi ControlEnter events ı ile gerçekleştirebilirsiniz.Özel kod companent inin içerisine tıklayınca direk olarak Özel kod listesini getirerek oradan seçtirme işlemi gerçekleştirmekteyiz.

Sub ControlEnter(ctrl As String, index as Integer)
  if ctrl="speCodeEdit" then
    Application.CreateAppForm(205,0,0,0,0,2,1,1,intref,tmpform)
  end if
End Sub

Geri dönen değerlerin işlenebilmesi için kod aşağıdaki gibi olmalı;

Sub ControlEnter(ctrl As String, index as Integer)
   if ctrl="speCodeEdit" then
      Application.CreateAppForm(205, 0, 0, 23, 0, 2, 1, 1, strCode, tmpform)
      SetTextVal("speCodeEdit", strCode)
      UpdateControlData("speCodeEdit")
   end if
End Sub