Public Const SHVIEW_ICON As Long = &H7029\nPublic Const SHVIEW_LIST As Long = &H702B\nPublic Const SHVIEW_REPORT As Long = &H702C\nPublic Const SHVIEW_THUMBNAIL As Long = &H702D\nPublic Const SHVIEW_TILE As Long = &H702E\n...\n               \'hwndLv = FindWindowEx(hWndParent, 0, "SHELLDLL_DefView", vbNullChar)\n               hwndLv = GetDlgItem(hWndParent, ID_LIST)\n               If hwndLv >  0  Then\n                  Call SendMessage(hwndLv, WM_COMMAND, ByVal m_lvInitialView, ByVal  0 &)\n                  \'Call SendMessage(hwndLv, WM_COMMAND, ByVal SHVIEW_THUMBNAIL, ByVal  0 &)

Public Const LV_VIEW_ICON = &H0&        \'= &H0000\nPublic Const LV_VIEW_DETAILS = &H1&      \'= &H0001\nPublic Const LV_VIEW_SMALLICON = &H2&   \'= &H0002\nPublic Const LV_VIEW_LIST = &H3&        \'= &H0003\nPublic Const LV_VIEW_TILE = &H4&        \'= &H0004

Call SendMessage(hwndLv, WM_COMMAND, ByVal SHVIEW_THUMBNAIL, ByVal  0 &)

IShellBrowser *shBrowser=(IShellBrowser*)SendMessage(hWnd,WM_GETISHELLBROWSER, 0 , 0 );
IShellView *shView=NULL;
if (shBrowser->QueryActiveShellView(&shView)==S_OK) {
  IFolderView *folder=NULL; // requires Win XP

  if (shView->QueryInterface(IID_IFolderView,(void **)&folder)==S_OK) {
    folder->SetCurrentViewMode(g_ViewMode);
    folder->Release();
  }
  shView->Release();
}

IFolderView::GetCurrentViewMode Method
Gets an address containing a value representing the folder's current view mode.

Syntax
HRESULT GetCurrentViewMode(          UINT *pViewMode
);
Parameters

pViewMode
[out] A pointer to a memory location at which to store the folder's current view mode.
The value at that address is one of the following FOLDERVIEWMODE values.

FVM_ICON
Medium icons
FVM_SMALLICON
Small icons
FVM_LIST
List view without details
FVM_DETAILS
Show details (size, type, last modification date)
FVM_THUMBNAIL
Thumbnail view
FVM_TILE
Large icons
FVM_THUMBSTRIP
Filmstrip view

hWndParent <- hwnd (Common Control Dialog)
hWndParent <-hwndLv ("SHELLDLL_DefView") -< hwndLVIEW("SysListView32", Common Controls)

Public Const SHVIEW_ICON As Long = &H7029
Public Const SHVIEW_LIST As Long = &H702B
Public Const SHVIEW_REPORT As Long = &H702C
Public Const SHVIEW_THUMBNAIL As Long = &H702D
Public Const SHVIEW_TILE As Long = &H702E
Call SendMessage(hwndLv, WM_COMMAND, ByVal m_lvInitialView, ByVal 0&)

     Case WM_NOTIFY
               
       If IsWinVista = False Then
         If bLvSetupDone = False Then
                   
           'hwnd is the handle to the dialog
           'hwndParent is the handle to the common control
           'hwndLv is the handle to the "SHELLDLL_DefView"
           hWndParent = GetParent(hwnd)
           hwndLv = FindWindowEx(hWndParent, 0, "SHELLDLL_DefView", vbNullChar)
                   
           If hwndLv > 0 Then
             'сабклассим "SHELLDLL_DefView" окно на предмет изменения Folder View
             'в том числе со стороны стандартных менюшек Common Dialog
             OldFolderViewWindowProc = SetWindowLong( _
              hwndLv, GWL_WNDPROC, _
              AddressOf NewFolderViewWindowProc)
             'здесь устанавливаем m_lvInitialView, (кот. запомнили из предыдущего диалога)
             Call SendMessage(hwndLv, WM_COMMAND, ByVal m_lvInitialView, ByVal 0&)
                    
             bLvSetupDone = True
           End If  'hwndLv
         End If  'bLvSetupDone
       End If

Private Function NewFolderViewWindowProc( _
 ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As Long) As Long
 
 Select Case Msg
   Case WM_COMMAND
     Select Case wParam
       Case SHVIEW_ICON
         Debug.Print "Folder View changed to 'Icon (Large)'"
         Form1.List1.Text = "Icon (Large)"
         m_lvInitialView = wParam
       Case SHVIEW_LIST
         Debug.Print "Folder View changed to 'List (default view)'"
         Form1.List1.Text = "List (default view)"
         m_lvInitialView = wParam
       Case SHVIEW_REPORT
         Debug.Print "Folder View changed to 'Details (Report view)'"
         Form1.List1.Text = "Details (Report view)"
         m_lvInitialView = wParam
       Case SHVIEW_THUMBNAIL
         Debug.Print "Folder View changed to 'Thumbnails'"
         Form1.List1.Text = "Thumbnails"
         m_lvInitialView = wParam
       Case SHVIEW_TILE
         Debug.Print "Folder View changed to 'Tiles'"
         Form1.List1.Text = "Tiles"
         m_lvInitialView = wParam
       Case Else
     End Select
   Case Else
 End Select

         Case CDN_HELP 'Help clicked (that is "Listview")
           'MsgBox "'Listview' clicked"
           
           hWndParent = GetParent(hwnd)
           hwndLv = FindWindowEx(hWndParent, 0, "SHELLDLL_DefView", vbNullChar) 'hwndLv is the handle to the "SHELLDLL_DefView"
           'hwndLVIEW = FindWindowEx(hwndLv, 0&, vbNullString, "FolderView")'так
           hwndLVIEW = FindWindowEx(hwndLv, 0&, "SysListView32", vbNullString) 'или так 'hwndLVIEW is the handle to the listview itself
           Dim the_view As Long
           Dim the_view_str As String
           the_view = SendMessage(hwndLVIEW, LVM_GETVIEW, 0, 0)
           Select Case the_view
             Case LV_VIEW_ICON
               Debug.Print "LV_VIEW_ICON (Icon large or Thumbnails)"
               the_view_str = "LV_VIEW_ICON (Icon large or Thumbnails)"
             Case LV_VIEW_DETAILS
               Debug.Print "LV_VIEW_DETAILS (Details)"
               the_view_str = "LV_VIEW_DETAILS (Details)"
             Case LV_VIEW_SMALLICON
               Debug.Print "LV_VIEW_SMALLICON"
               the_view_str = "LV_VIEW_SMALLICON"
             Case LV_VIEW_LIST
               Debug.Print "LV_VIEW_LIST (List)"
               the_view_str = "LV_VIEW_LIST (List)"
             Case LV_VIEW_TILE
               Debug.Print "LV_VIEW_TILE (Tiles)"
               the_view_str = "LV_VIEW_TILE (Tiles)"
           End Select
           MsgBox the_view_str

         Case CDN_HELP 'Help clicked
           
           hWndParent = GetParent(hwnd)
           '// undocumented message to get IShellBrowser from the file dialog
           '
           '#define WM_GETISHELLBROWSER (WM_USER+7)
           '
           'IShellBrowser *shBrowser=(IShellBrowser*)SendMessage(hWnd,WM_GETISHELLBROWSER,0,0);
           'IShellView *shView=NULL;
           'if (shBrowser->QueryActiveShellView(&shView)==S_OK) {
           '  FOLDERSETTINGS settings;
           '  shView->GetCurrentInfo(&settings);
           '  g_ViewMode=settings.ViewMode;
           '  shView->Release();
           '}
           '
           '// experiments show that shBrowser doesn't need to be Released

           pShellBrowser = SendMessage(hWndParent, WM_GETISHELLBROWSER, 0, ByVal 0&)
           'MsgBox pShellBrowser
           If pShellBrowser <> 0 Then
             MoveMemory shBrowser, pShellBrowser, 4
             Set shView = shBrowser.QueryActiveShellView
             shView.GetCurrentInfo settings
             g_ViewMode = settings.ViewMode
             MsgBox g_ViewMode
             Debug.Print g_ViewMode
             Set shView = Nothing
             MoveMemory shBrowser, 0&, 4 'Нельзя делать Set Nothing
           End If

   Static hwndLv As Long

        Case CDN_FOLDERCHANGE
           Debug.Print "CDN_FOLDERCHANGE"
           If IsWinVista = False Then
             'снимаем предыдущий сабклассинг "SHELLDLL_DefView"
             SetWindowLong hwndLv, GWL_WNDPROC, OldFolderViewWindowProc
             hWndParent = GetParent(hwnd)
             hwndLv = FindWindowEx(hWndParent, 0, "SHELLDLL_DefView", vbNullChar)
             Debug.Print hwndLv
             If hwndLv > 0 Then
               'сабклассим "SHELLDLL_DefView" заново (hwndLv другой)
               OldFolderViewWindowProc = SetWindowLong( _
                hwndLv, GWL_WNDPROC, _
                AddressOf NewFolderViewWindowProc)
             End If
           End If