Obj1.New1
Obj2.New1
Obj1.Value = Pbar.ControlRef
Obj2.CreateNew("System.Drawing.Color" & Obj2.System_Drawing)
Obj1.SetProperty2("ForeColor", Obj2.RunMethod2("FromArgb",cRed,"System.Int32"))
' you can also set the ProgressBar style. Blocks=0, Continuous=1, Marquee=2
' the Marquee style is valid only when visual styles are enabled.
' the Continuous style is valid only when visual styles are Not enabled.
' FormExDesktop lets you enable visual styles
Obj1.SetProperty("Style",1)