add progressbar in to tabControl

[thaidelphi]

I'm want sample for add progressbar in to tabControl

 

[agraham]

Sub App_Start
   Form1.Show
   tab.New1("Form1",10,10,210,200)
   pbar.New1("Form1",0,0,150,20)
   tab.AddTabPage("one")   
   tab.AddControl(pbar.ControlRef,0,10,10)
   pbar.Value = 33
End Sub