修改 StatusBar 控件的背景色

Option   Explicit  
  Private   Const   CLR_INVALID   =   &HFFFF  
  Private   Const   SB_SETBKCOLOR   =   &H2001  
  Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   ByVal   lParam   As   Long)   As   Long  
  Private   Declare   Function   OleTranslateColor   Lib   "OLEPRO32.DLL"   (ByVal   OLE_COLOR   As   Long,   ByVal   HPALETTE   As   Long,   pccolorref   As   Long)   As   Long  
  Sub   Form_Load()  
      SendMessage   StatusBar1.hwnd,   SB_SETBKCOLOR,   0,   TranslateColor(vbRed)  
  End   Sub  
   
  Private   Function   TranslateColor(ByVal   oClr   As   OLE_COLOR,   Optional   hPal   As   Long   =   0)   As   Long  
         
          If   OleTranslateColor(oClr,   hPal,   TranslateColor)   Then   TranslateColor   =   CLR_INVALID  
  End   Function