add progressbar in to tabControl

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