VERSION 1.00
Begin Form Formular
   Height = 10
   Width = 40
   Begin TextBox Text1
      TabIndex = 0
   End
   Begin CommandButton Ok
      Caption = "&OK"
      TabIndex = 1
      Top = 3
   End
End
' tb-screen: 80x25
' tb-events: key:%o | key:+<TAB>
DIM SHARED trace$
Formular.Show
Ok.SetFocus
DOEVENTS
DOEVENTS
DOEVENTS
Formular.Hide
CLS
PRINT trace$
END
SUB Ok_Click()
SHARED trace$
trace$ = trace$ + "Click;"
END SUB
SUB Ok_LostFocus()
SHARED trace$
trace$ = trace$ + "LostFocus;"
END SUB
SUB Text1_GotFocus()
SHARED trace$
trace$ = trace$ + "GotFocus;"
END SUB