#include "stdctrls.bi"

 dim shared as TForm form
 dim shared as TStatic Stc
 dim shared as TButton Btn
 dim shared as TCheckBox cbx
 dim shared as TRadioButton rbn
 dim shared as TGroupBox gbx
 dim shared as TEdit Edt
 dim shared as TComboBox cmb
 dim shared as TListBox lb
 dim shared as TScrollBar scl
 
 sub formcreate(sender as TForm)
     sender.height = 450
     stc.parent = sender
     stc.caption = "static control"
     stc.color = &hffff
     stc.hint = "static control"
     stc.showhint = true
     btn.top = 20
     btn.parent = sender
     btn.caption = "&Button"
     cbx.top = 57
     cbx.parent = sender
     cbx.caption = "&Button"
     rbn.top = 74
     rbn.parent = sender
     rbn.caption = "&Button"
     gbx.top = 93
     gbx.parent = sender
     gbx.caption = "&Button"
     gbx.color = &h00ff00
     edt.top = 215
     edt.parent = sender
     edt.text = "edit"
     edt.font.color = &hff
     cmb.top = 238
     cmb.parent = sender
     cmb.text = "combobox"
     cmb.color = &hff0000
     cmb.font.color = &hffffff
     cmb.add("1")
     cmb.add("2")
     cmb.add("3")
     cmb.itemindex=2
     lb.top = 262
     lb.parent = sender
     lb.text = "combobox"
     lb.color = &h0000ff
     lb.font.color = &hffff
     lb.add("i1")
     lb.add("i2")
     lb.add("i3")
     lb.itemindex=2
     scl.top = 392
     scl.position=45
     scl.parent = sender
 end sub
  
form.oncreate     = @formcreate
form.caption      = "eGUI"
form.main         = 1
form.visible      = 1
form.parent       = 0

dim as msg m
while GetMessage(@m,0,0,0)>0
    TranslateMessage(@m)
    DispatchMessage(@m)
wend