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&)

  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