Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As _
  Long, ByVal lParam As Long) As Long
 
    Const WM_CTLCOLORSCROLLBAR = &H137
 
    If WM_CTLCOLORSCROLLBAR = uMsg Then
        WindowProc = CreateSolidBrush(RGB(255, 255, 0))
    Else
        WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
    End If
 
End Function

Gru?

Ralf