如何改变状态栏的底色啊

Question

我想改变状态栏的底色,但实现不了，请教那位大哥会呀

Answer 1

看看
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CCM_FIRST = &H2000
Private Const CCM_SETBKCOLOR = (CCM_FIRST + 1)
Private Const TB_SETBKCOLOR = CCM_SETBKCOLORPrivate Sub Form_Load()
    SendMessage StatusBar1.hwnd, TB_SETBKCOLOR, 0, ByVal RGB(128, 128, 255)
End Sub