Объясните мне как правильно API написать и вызвать, видимо рука еще не настолько набита - VB

Формулировка задачи:

Syntax
C++
 
HRESULT GetThemeSysString(
  _In_   HTHEME hTheme,
  _In_   int iStringID,
  _Out_  LPWSTR pszStringBuff,
  _In_   int cchMaxStringChars
);

Пытаюсь

'String theme metric properties
Public Const TMT_CSSNAME = 1401
Public Const TMT_XMLNAME = 1402
Public Const TMT_FIRSTSTRING = TMT_CSSNAME
Public Const TMT_LASTSTRING = TMT_XMLNAME

Public Const S_OK = &H0
 
Public Declare Function GetThemeSysString Lib "UxTheme.dll" (ByVal hTheme As Long, _
 ByVal iStringID As Long, ByRef pszStringBuff As Long, ByVal cchMaxStringChars) As Long
Public Declare Function GetWindowTheme Lib "UxTheme.dll" (ByVal hwnd As Long) As Long

Private Sub CommandGetTheme_Click()
  Dim hTheme As Long
  Dim theme_str As String
  Dim lng_str As Long
  hTheme = GetWindowTheme(g_hwndRebar_txtTop)
  theme_str = Space$(80)
  If GetThemeSysString(hTheme, TMT_CSSNAME, VarPtr(theme_str), 80) = S_OK Then
    MsgBox theme_str
  End If
End Sub

hTheme -я long получаю
Что только не делал с 3-м параметром в GetWindowTheme
Выдает

Er.49 Bad dll calling conversion

Как это записать?

Если получу указатель Ptr в 3-м параметре, то unicode -str я оттуда вытяну, опыт есть, но надо получить.
А примеров декларации для VB6 нигде нету.
P.S. Хочу все-таки докопаться до мутно-зеленого тулбара, покоя он мне не дает.

Решение задачи: «Объясните мне как правильно API написать и вызвать, видимо рука еще не настолько набита»

textual
                            Листинг программы 
                        

                            <TemplateBackground background="Gradient(argb(255, 4, 80, 130), argb(255, 17, 101, 132), argb(255, 29, 121, 134), 3)" />
<if id="atom(MiddleLayer)">
<TemplateBackground
background="dtb(Rebar, RP_BACKGROUND, 0)"
/>

                        