Код
#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,500,500)
StringGadget(1,10,10,100,20,"1 гаджет")
StringGadget(2,10,50,100,20,"2 гаджет")
' делаем 2 гаджет активным
SetFocus(GadgetID(2))
Do
event=WaitEvent()
If event=EventClose Then End
Loop