#PBM_SETBKCOLOR = $2001
#PBM_SETBARCOLOR = $409


If OpenWindow(0, 0, 0, 320, 160, "ProgressBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    CreateGadgetList(WindowID(0))
   
   
    ProgressBarGadget(0,  10, 30, 300,  20, 0, 145)
   
    SendMessage_(GadgetID(0), #PBM_SETBARCOLOR, 0, RGB($0, $0F, $FF))
    SendMessage_(GadgetID(0), #PBM_SETBKCOLOR, 0, RGB($F2, $FF, $FF))
   
   
    ProgressBarGadget(1,  10, 90, 250,  30, 0, 145, #PB_ProgressBar_Smooth)
   
    SendMessage_(GadgetID(1), #PBM_SETBARCOLOR, 0, RGB($0, $0, $FF))
    SendMessage_(GadgetID(1), #PBM_SETBKCOLOR, 0, RGB($F2, $FF, $FF))
   
   
    For lg = 1 To 145
    Delay(20)
    SetGadgetState(0, lg)
    SetGadgetState(1, lg)
    Next lg
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf