'This will change the color off the menu bar of all active windows

Declare Function GetSysColor Lib "user32" Alias "GetSysColor" _
(nIndex As Long) As Long

Declare Function SetSysColors Lib "user32" Alias "SetSysColors" _
(nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Const COLOR_MENU = 4

DECLARE SUB Button_Click(Sender AS QBUTTON)

DECLARE SUB Close

DEFLNG NewColor, OldColor = GetSysColor(COLOR_MENU), _
ColorPos = COLOR_MENU

CREATE Form AS QFORM
    	Center
    	OnClose = Close
	CREATE Main AS QMAINMENU
    		CREATE mnuTest AS QMENUITEM
        			Caption = "Test"
    		END CREATE
    	END CREATE
    	CREATE Button1 AS QBUTTON
        	Top = 20
        	Left = 10
        	Caption = "Red"
        	OnClick = Button_Click
    	END CREATE
    	CREATE Button2 AS QBUTTON
        	Top = 20
        	Left = 90
        	Caption = "Green"
        	OnClick = Button_Click
    	END CREATE
    	CREATE Button3 AS QBUTTON
        	Top = 20
        	Left = 170
        	Caption = "Blue"
        	OnClick = Button_Click
    	END CREATE
END CREATE

Form.ShowModal
SUB Button_Click
    	SELECT CASE Sender.Caption
       		CASE "Red"
       			NewColor = &H000000FF
       		CASE "Green"
       			NewColor = &H0000FF00
       		CASE "Blue"
       			NewColor = &H00FF0000
    	END SELECT
    	SetSysColors(1, VARPTR(ColorPos), VARPTR(NewColor))
END SUB

SUB Close
    	SetSysColors(1, VARPTR(ColorPos), VARPTR(OldColor))
END SUB