sanon, here the sample code.

Code:
Option Explicit
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Const COLOR_ACTIVECAPTION = 2

Private Sub Command1_Click()
    Label1.BackColor = GetSysColor(COLOR_ACTIVECAPTION)
End Sub
To know more abt the GetSysColor juz take a look on this MSDN Library

Chris