Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Const CCM_Min = &H2000
Private Const CCM_SETBKCOLOR = (CCM_Min + 1)
Private Const SB_SETBKCOLOR = CCM_SETBKCOLOR
Private Sub SetBackColor(objObject As Object, ByVal BackColor As Long)
SendMessage objObject.hWnd, SB_SETBKCOLOR, 0, ByVal BackColor
End Sub
Private Sub Command2_Click()
SetBackColor StatusBar1, RGB(90, 220, 80)
End Sub