Windows Visual Style

I would expect for #1 you would need to pick it up from the registry, maybe something like:

Const HKEY_LOCAL_MACHINE = &H80000002
Sub macro_1()
strComputer = "."
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes\"
strValueName = "CurrentTheme"
oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
MsgBox strValue
End Sub

?