А какая у API-Listview нормальная стандартная граница (border)? - VB

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

В VB6 всегда ставлю
Apperance = 1-3D
BorderStyle = 0 ccNone
Для апишного поставил

Private Const WC_LISTVIEW = "SysListView32"

  Dim LvStyle As Long
  LvStyle = WS_CHILD Or WS_VISIBLE Or WS_BORDER Or LVS_SHOWSELALWAYS Or m_ViewMode
  Dim ExStyle As Long
  ExStyle = WS_EX_CLIENTEDGE Or WS_EX_WINDOWEDGE
  m_hwndLV = CreateWindowEx(ExStyle, _
                            WC_LISTVIEW, _
                            0&, _
                            LvStyle, _
                            0, 0, _
                            rcClient.Right - rcClient.Left, _
                            rcClient.Bottom - rcClient.Top, _
                            hWndParent, _
                            0&, App.hInstance, 0&)

На классике вроде похож.
На вистах чет не очень - рамку какую-то двойную рисует -должна быть одинарная серенькая.
Как правильно не нашел. И в ControlSpy не могу подогнать.
Antonariy, выручай. Ты один это можешь знать.

Решение задачи: «А какая у API-Listview нормальная стандартная граница (border)?»

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

                            LvStyle = WS_CHILD Or WS_VISIBLE Or LVS_SHOWSELALWAYS Or m_ViewMode 'Or WS_BORDER
  Dim ExStyle As Long
  If IsWinVista And ThemesEnabled(hWndParent) Then
    ExStyle = WS_EX_STATICEDGE
  Else
    ExStyle = WS_EX_CLIENTEDGE 'Or WS_EX_WINDOWEDGE
  End If

                        