Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes


Visual Basic Programming Code Examples

Visual Basic > Code Snippets Code Examples

Change system colors

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
Change system colors Private Declare Function SetSysColors Lib "user32" (ByVal nValues As Long, lpSysColor As Long, lpColorValue As Long) As Long Private Const COLOR_SCROLLBAR = 0 Private Const COLOR_BACKGROUND = 1 Private Const COLOR_ACTIVECAPTION = 2 Private Const COLOR_INACTIVECAPTION = 3 Private Const COLOR_MENU = 4 Private Const COLOR_WINDOW = 5 Private Const COLOR_WINDOWFRAME = 6 Private Const COLOR_MENUTEXT = 7 Private Const COLOR_WINDOWTEXT = 8 Private Const COLOR_CAPTIONTEXT = 9 Private Const COLOR_ACTIVEBORDER = 10 Private Const COLOR_INACTIVEBORDER = 11 Private Const COLOR_APPWORKSPACE = 12 Private Const COLOR_HIGHLIGHT = 13 Private Const COLOR_HIGHLIGHTTEXT = 14 Private Const COLOR_BTNFACE = 15 Private Const COLOR_BTNSHADOW = 16 Private Const COLOR_GRAYTEXT = 17 Private Const COLOR_BTNTEXT = 18 Private Const COLOR_INACTIVECAPTIONTEXT = 19 Private Const COLOR_BTNHIGHLIGHT = 20 Private Sub Form_Load() 'you now have ablue desktop ;-) X = SetSysColors(1, COLOR_BACKGROUND, &HFF0F00) End End Sub