Windows Visual Style

Originally Posted by LJMetzger

The following thread discusses obtaining 'Windows Classic Theme' information using
one of:
a. Registry Entry: HKEY_USERS\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
b. IsThemeActive() from uxtheme.dll

See http://vbcity.com/forums/t/73483.aspx
Lewis

Thanks Lewis! +1

That was exactly what I was looking for.

The code below returns the correct result on each machine.

Option Explicit

Private Declare Function IsThemeActive Lib "uxtheme" () As Boolean

Private Sub Form_Load()
If IsThemeActive() = False Then
MsgBox "Windows Classic Theme detected"
End If
End Sub