Declarations

Dim cR As New cRegistry Dim iByte As Long Dim vR as Variant

Code

With cR         .ClassKey = HKEY_CURRENT_USER         .SectionKey = "Control Panel\Appearance"         .ValueKey = "CustomColors"         vR = .Value         If .ValueType = REG_BINARY Then         ' Read through the byte array and output it as a series of hex values:         For iByte = LBound(vR) To UBound(vR)             sOut = sOut & "&H"             If (iByte<&H10) Then                 sOut = sOut & "0"             End If             sOut = sOut & Hex$(vR(iByte)) & " "             Next iByte         Else             sOut = vR         End If         Debug.Print sOut     End With

منبع:www.cesblog.ir