I have already create a form through coding show below

Public oForm
oForm=Createobject('form1')
oForm.Show
Return
Define Class form1 As Form
Top = 0
Left = 0
width = 700
Height = 300
DoCreate = .T.
Caption = "Salary Calculation"
Name = "form1"


ADD object container1 as container with;
width = 250, ;
Height = 120, ;
Left = 15, ;
Top = 100, ;
backstyle = 0, ;
style = 3


ADD object container2 as container with;
width = 400, ;
Height = 60, ;
Left = 275, ;
Top = 100, ;
backstyle = 0, ;
style = 3



ADD object label1 as label with ;
left = 20, ;
width = 150, ;
Top = 125, ;
caption = "ENTER DA PERCENTAGE"

ADD object label2 as label with ;
left = 20, ;
width = 150, ;
Top = 175, ;
caption = "ENTER HRA PERCENTAGE "

ADD object label3 as label with ;
left = 240, ;
width = 50, ;
Top = 125, ;
caption = "%"

ADD object label4 as label with ;
left = 240, ;
width = 50, ;
Top = 175, ;
caption = "%"

ADD object label5 as label with ;
left = 280, ;
width = 100, ;
Top = 120, ;
caption = "ENTER ID FROM"

ADD object label6 as label with ;
left = 475, ;
width = 90, ;
Top = 120, ;
caption = "ENTER ID TO"

ADD object label7 as label with ;
left = 310, ;
width = 315, ;
Top = 75, ;
caption = "ENTER THE EMPLOYEE ID FOR SALARY CALCULATION "

ADD object label8 as label with ;
left = 30, ;
width = 225, ;
Top = 75, ;
caption = "ENTER PERCENTAGE OF D.A/H.R.A "


Add Object txtda As TextBox With ;
left =180, ;
width = 50, ;
top = 125

Add Object txthra As TextBox With ;
left =180, ;
width = 50, ;
top = 175

Add Object txtfrom As TextBox With ;
left =400, ;
width = 50, ;
top = 120

Add Object txtto As TextBox With ;
left =565, ;
width = 50, ;
top = 120


ADD OBJECT btn as commandbutton WITH ;
left = 200, ;
Top = 250, ;
Height = 25, ;
width =100, ;
caption = 'Calculate '


ADD OBJECT btn1 as commandbutton WITH ;
left = 315, ;
Top = 250, ;
Height = 25, ;
width =75, ;
caption = 'Exit '


ADD OBJECT btn2 as commandbutton WITH ;
left = 400, ;
Top = 250, ;
Height = 25, ;
width =75, ;
caption = 'View '

ADD OBJECT btn3 as commandbutton WITH ;
left = 485, ;
Top = 250, ;
Height = 25, ;
width =75, ;
caption = 'Clear '
ENDDEFINE

My question is
How to insert Microsoft Progress Bar Control version 5.0(SP2)on my form programmatically?