Chose from list in internal error?

Question

Hi  expert
i want to use chose from list from  udf object.
Private Sub LoadingCFL(ByVal oForm As SAPbouiCOM.Form)
        Try
            Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
            'Dim oCons As SAPbouiCOM.Conditions
            'Dim oCon As SAPbouiCOM.Condition
            oCFLs = oForm.ChooseFromLists
            Dim oCFL As SAPbouiCOM.ChooseFromList
            Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
            oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
            ' Adding 2 CFL, one for the button and one for the edit text.
            oCFLCreationParams.MultiSelection = False
            oCFLCreationParams.ObjectType = "SM_TPR" ''''''17
            'oCFLCreationParams.UniqueID = "CFL1"
            'oCFL = oCFLs.Add(oCFLCreationParams)
            oCFLCreationParams.UniqueID = "CFL2"
            oCFL = oCFLs.Add(oCFLCreationParams)
        Catch
            ' MsgBox(Err.Description)
        End Try
    End Sub
when i use object no 17..... its showing  order chosefrom list.,but when i use  user define field object"  SM_TPR"
then its error message showing   ''''''''''''''   internal error-1033
please solve this problem......

Answer 1

Hi John
U could have given the object type in the screen painter itself.
-Anto