Private Declare Function GetSysColor Lib "user32" (ByVal nIndex%) As Long
   ' Enter the following Declare statement as one, single line:
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

   Const COLOR_BACKGROUND = 1
   Const COLOR_ACTIVECAPTION = 2
   Const COLOR_WINDOWFRAME = 6
   Dim SavedColors(18) As Long

Private Sub CommandButton1_Click()
    ' Save current system colors:
    SetSysColors 1, COLOR_BACKGROUND, imgColour.BackColor
End Sub

Private Sub UserForm_Click()

End Sub