Erro na criação de combobox

[JoséQuintas]

Código: Selecionar todos

FUNCTION gui_ComboCreate( xDlg, xControl, nRow, nCol, nWidth, nHeight, aList )

   DEFINE COMBOBOX ( xControl )
      PARENT ( xDlg )
      ROW nRow
      COL nCol
      VALUE 1
      WIDTH nWidth
      HEIGHT nHeight
      ITEMS aList
   END COMBOBOX

   RETURN Nil

Como saber qual é o erro ?

[JoséQuintas]

Não dá pra saber, o erro não está aí.

Código: Selecionar todos

FUNCTION gui_ComboCreate( xDlg, xControl, nRow, nCol, nWidth, nHeight, aList )

   IF Empty( xControl )
      xControl := gui_newctlname( "CBO" )
   ENDIF
   DEFINE COMBOBOX ( xControl )
      PARENT ( xDlg )
      ROW nRow
      COL nCol
      VALUE 1
      WIDTH nWidth
      HEIGHT nHeight
      ITEMS aList
   END COMBOBOX

   RETURN Nil

Faltava o nome do controle.