Есть форма, на ней много textbox(ов) и есть Combobox, как можно сделать, чтоб по выходе из textbox(а), курсор переходил на Combobox, и к тому же список этого сомбобокса раскрывался не нажимая треугольничик сбоку комбобокса

Большое спасибо..правда, если добавить ещё один объект, то почему то выходя из text1 эффект раскрытия списка combo1 пропадает

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


DEFINE CLASS form1 AS form


DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT text1 AS textbox WITH ;
Height = 23, ;
Left = 96, ;
Top = 60, ;
Width = 100, ;
Name = "Text1"


ADD OBJECT text2 AS textbox WITH ;
Height = 23, ;
Left = 96, ;
Top = 80, ;
Width = 100, ;
Name = "Text2"

ADD OBJECT combo1 AS combobox WITH ;
ColumnCount = 0, ;
ColumnWidths = "", ;
RowSourceType = 1, ;
RowSource = "1111,2222,33333", ;
FirstElement = 1, ;
Height = 24, ;
Left = 96, ;
NumberOfElements = 0, ;
Style = 2, ;
Top = 108, ;
Width = 100, ;
Name = "Combo1"


PROCEDURE text1.LostFocus
Keyboard '{ALT+DNARROW}'
ENDPROC


ENDDEFINE

Надо посмотреть второй вариант...

Правда у меня комбобокс реализован типа так
ADD OBJECT combo1 AS combobox WITH ;
...
Left = 198, ;
Width = 20, ;
...

Не, я тут поднапрягся...наверное надо эту фразу Keyboard '{ALT+DNARROW} запихать в gotofocus combobox(а), а в Lostfocus text1 поставить combo.setfocus, типа так что-то...