'Declaration
 
Public Shared Sub GetCurrentThemeName( _
   ByVal pszThemeFileName As StringBuilder, _
   ByVal cchMaxNameChars As Integer, _
   ByVal pszColorBuff As StringBuilder, _
   ByVal cchMaxColorChars As Integer, _
   ByVal pszSizeBuff As StringBuilder, _
   ByVal cchMaxSizeChars As Integer _
) 

'Usage
 
Dim pszThemeFileName As StringBuilder
Dim cchMaxNameChars As Integer
Dim pszColorBuff As StringBuilder
Dim cchMaxColorChars As Integer
Dim pszSizeBuff As StringBuilder
Dim cchMaxSizeChars As Integer
 
VisualStyle.GetCurrentThemeName(pszThemeFileName, cchMaxNameChars, pszColorBuff, cchMaxColorChars, pszSizeBuff, cchMaxSizeChars)

public static void GetCurrentThemeName( 
   StringBuilder pszThemeFileName,
   int cchMaxNameChars,
   StringBuilder pszColorBuff,
   int cchMaxColorChars,
   StringBuilder pszSizeBuff,
   int cchMaxSizeChars
)

Parameters

pszThemeFileName

Theme name

cchMaxNameChars

Maximum number of characters in the name

pszColorBuff

Buffer for the color name

cchMaxColorChars

Maximum number of characters in the color

pszSizeBuff

Buffer for the size

cchMaxSizeChars

Maximum number of characters in the size

Reference

VisualStyle Class
VisualStyle Members