[Erel]

A small example is attached.
This is the code:

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    Form1.Show
    bar.New1("panel1",10,10,200,30)
    bar.Value = 40
End Sub