trovato l'errore quindi corretto:



codice:
Option Explicit

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_USER = &H400
Public Const PBM_SETBARCOLOR = WM_USER + 9


Nel codice del form:

codice:
Private Sub Form_Load()

    SendMessage ProgressBar1.hwnd, PBM_SETBARCOLOR, 0, byVal vbBlack

End Sub

OH! E adesso "ENJOY "