VB6 set the progress bar color

VB6: Create a project and place a progress bar control on the interface. Enter the followingCode:
Option explicit

Private declare function postmessage lib "USER32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long
Private const pbm_setbarcolor = & h409
Private const pbm_setbkcolor = & h2001

Private sub form_load ()
Postmessage progressbar1.hwnd, pbm_setbarcolor, 0, vbred
Postmessage progressbar1.hwnd, pbm_setbkcolor, 0, vbgreen
Progressbar1.value = 30
End sub