.lib "user32.dll"
SendMessage%(Hwnd%,Msg%,wParam%,lParam%):"SendMessageA"

Function PB_SetBackgroundColor(PB,c)
   SendMessage(QueryObject(PB,1),$2001,0,c)
End Function
;Verändert die Hintergrundfarbe. c ist ein RGB-Wert (BBGGRR). Geht nicht mit XP-Manifest!


Function PB_SetBarColor(PB,c)
   SendMessage(QueryObject(PB,1),$409,0,c)
End Function
;Verändert die Fortschritsbalkenfarbe. c ist ein RGB-Wert (BBGGRR). Geht nicht mit XP-Manifest!


Function PB_GetPosition(PB)
   Return SendMessage(QueryObject(PB,1),$408,0,0)
End Function
;Liefert den eigestellten Wert zurück.


Function PB_SetPos(PB,p)
   SendMessage(QueryObject(PB,1),$402,p,0)
End Function
;Stellt die Position der Bar ein.


Function PB_SetDeltaPos(PB,p)
   SendMessage(QueryObject(PB,1),$403,p,0)
End Function
;Verändert die Position um den Wert p (relativ)


Function PB_SetRange(PB,h,l=0)
   SendMessage(QueryObject(PB,1),$406,l,h)
End Function
;Stellt ein, welches der höchste (h) und der tiefste Wert (l) in der ProgressBar ist.


Function PB_SetStep(PB,s)
   SendMessage(QueryObject(PB,1),$404,s,0)
End Function
;Setzt die "Schrittlänge" für PB_StepIt, auf einen bestimmten Wert. (Standard = 10)


Function PB_StepIt(PB)
   SendMessage(QueryObject(PB,1),$405,0,0)
End Function
;Verändert den Wert um den mit PB_SetItem eingestellten Wert.


Function PB_GetRange(PB,m=0)
   Return SendMessage(QueryObject(PB,1),$407,m,0)
End Function
;Gibt den oberen (m=0) und unteren (m=1) Endwert zurück. (Mit SetRange eingestelllt)