' Die Hook-Fuktion empfängt alle Ereignisse des Dialogs
Public Function HookFunc(ByVal hdlg As Long, ByVal uiMsg As Long, _
  ByVal wParam As Long, ByVal lParam As Long) As Long
 
  Select Case uiMsg
    Case WM_INITDIALOG
      Debug.Print "Der Dialog wird Initialisiert"
 
    Case WM_HELP
      Debug.Print "Die Hilfe wurde aufgerufen"
      MsgBox "Es ist keine Hilfe verfügbar"
 
    Case WM_DESTROY
      Debug.Print "Der Dialog wird geschlossen"
    Case WM_NOTIFY
        Debug.Print "NOTIFY", wParam, lParam
    Case Else
        Debug.Print "SONST", uiMsg
  End Select
 
  ' Nicht vergessen! Im schlimmsten Fall reagiert der
  ' Dialog sonst nicht mehr
  HookFunc = uiMsg
End Function

      Case WM_NOTIFY
 
            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 listview itself
               hWndParent = GetParent(hwnd)
               hwndLv = FindWindowEx(hWndParent, 0, "SHELLDLL_DefView", _
                 vbNullChar)
 
               If hwndLv > 0 Then
                  Call SendMessage(hwndLv, WM_COMMAND, ByVal m_lvInitialView, _
                    ByVal 0&)
 
Wie soll man als Normalsterblicher auf das kommen?
Jetzt fehlt nur noch das Sortieren....
 
                 'since we found the lv hwnd, assume the
                 'command was received and set the flag
                 'to prevent recalling this routine
                  bLvSetupDone = True
               End If  'hwndLv