#include "commctrls.bi"

 dim shared as TForm form
 dim shared as TStatusBar stb
 dim shared as TToolBar tb
 dim shared as TTrackBar tcb
 dim shared as TAnimate an
 dim shared as TProgressBar Pb
 dim shared as THeaderControl hdr
 dim shared as TRichEdit re
 dim shared as TTabControl tc
 dim shared as TListView lw
 dim shared as TUpDown ud
 dim shared as TTreeView tw
 
 sub formcreate(sender as TForm)
     sender.height = 650
     sender.width = 500
     stb.parent = sender
     stb.simpletext = "statusbar"
     stb.color = &hffff
     stb.hint = "statusbar control"
     stb.showhint = true
     stb.align = 4
     stb.add
     stb.add
     stb.add
     stb.panel(0)->text = "panel 1"
     stb.panel(0)->Width = 120 
     stb.panel(1)->text = "panel 2"
     stb.panel(1)->Bevel = 1
     stb.panel(1)->Alignment = 1
     stb.panel(2)->text = "panel 3"
     stb.panel(2)->Bevel = 2
     stb.panel(2)->Alignment = 2
     tb.parent = sender
     tb.align = 3
     tb.add new TToolButton
     tb.add new TToolButton
     tb.add new TToolButton
     tcb.parent = sender
     tcb.position = 5
     tcb.top = 28
     an.parent = sender
     an.top = 78
     an.commonavi= avideletefile
     an.autoplay = 1
     an.play
     pb.top = 142
     pb.parent = sender
     pb.position = 33
     pb.smooth = 1
     hdr.parent = sender
     hdr.top = 172
     hdr.addsection
     hdr.addsection
     re.parent = sender
     re.top = 210
     re.lines.add "line 1"
     re.lines.add "line 2"
     re.lines.savetofile "richedit_lines.txt"
     tc.parent = sender
     tc.top = 335
     tc.add "tab 1"
     tc.add "tab 2"
     tc.add "tab 3"
     ud.top = 335
     ud.left = 229
     ud.parent = sender
     lw.top = 459
     lw.parent = sender
     lw.viewstyle = 2
     lw.addcolumn "1"
     lw.addcolumn "2"
     lw.additem "item 1"
     lw.additem "item 2"
     lw.addsubitem 0,"si 1"
     lw.addsubitem 1,"si 1"
     tw.top = 459
     tw.left = 226
     tw.parent = sender
     dim as ptreeitem ti = tw.add("base")
     ti = tw.addchild(ti,"item 1")
     ti = tw.addchild(ti,"item 2")
     tw.fullexpand
 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