新建From1（窗体），代码：

Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Const COLOR_SCROLLBAR = 0
Const COLOR_BACKGROUND = 1
Const COLOR_ACTIVECAPTION = 2
Const COLOR_INACTIVECAPTION = 3
Const COLOR_MENU = 4
Const COLOR_WINDOW = 5
Const COLOR_WINDOWFRAME = 6
Const COLOR_MENUTEXT = 7
Const COLOR_WINDOWTEXT = 8
Const COLOR_CAPTIONTEXT = 9
Const COLOR_ACTIVEBORDER = 10
Const COLOR_INACTIVEBORDER = 11
Const COLOR_APPWORKSPACE = 12
Const COLOR_HIGHLIGHT = 13
Const COLOR_HIGHLIGHTTEXT = 14
Const COLOR_BTNFACE = 15
Const COLOR_BTNSHADOW = 16
Const COLOR_GRAYTEXT = 17
Const COLOR_BTNTEXT = 18
Const COLOR_INACTIVECAPTIONTEXT = 19
Const COLOR_BTNHIGHLIGHT = 20
Const COLOR_3DDKSHADOW = 21
Const COLOR_3DLIGHT = 22
Const COLOR_INFOTEXT = 23
Const COLOR_INFOBK = 24
Const COLOR_HOTLIGHT = 26
Const COLOR_GRADIENTACTIVECAPTION = 27
Const COLOR_GRADIENTINACTIVECAPTION = 28

Private Sub Form_Load()
    Debug.Print "Color of Scrollbar is " & Hex(GetSysColor(COLOR_SCROLLBAR))
    Debug.Print "Color of Background is " & Hex(GetSysColor(COLOR_BACKGROUND))
    Debug.Print "Color of Active Caption is " & Hex(GetSysColor(COLOR_ACTIVECAPTION))
    Debug.Print "Color of InActive Caption is " & Hex(GetSysColor(COLOR_INACTIVECAPTION))
End Sub

运行结果：

Color of Scrollbar is C8C8C8
Color of Background is 606848
Color of Active Caption is D1B499
Color of InActive Caption is DBCDBF