Private Sub ButtonSaveAs_Click(sender As Object, e As EventArgs) Handles ButtonSaveAs.Click
    Using fsDlg = New IISaveFileDialog
      fsDlg.Filter = "Text Files (*.txt)|*.txt|All files (*.*)|*.*"
      fsDlg.FilterIndex = 1
      fsDlg.FileName = "test.txt"
      fsDlg.DefaultExt = "txt"
      fsDlg.InitialFolder = GetFolderPath(SpecialFolder.DesktopDirectory)
      fsDlg.Title = "Моя тестовая шапка"
      fsDlg.OverwritePrompt = False
      Dim res As DialogResult = fsDlg.ShowDialog(Me)
      If res = DialogResult.OK Then
        MsgBox(fsDlg.File)
      ElseIf res = DialogResult.Cancel Then
        MsgBox("Cancel")
      End If
    End Using
  End Sub


#Region "Constants"

  'Shell Reference > Shell Constants, Enumerations, and Flags
  ' FILEOPENDIALOGOPTIONS enumeration
  Public Const FOS_OVERWRITEPROMPT As UInteger = &H2 'OFN_OVERWRITEPROMPT - When saving a file, prompt before overwriting an existing file of the same name. This is a default value for the Save dialog.
  Public Const FOS_STRICTFILETYPES As UInteger = &H4 'OFN_EXTENSIONDIFFERENT - In the Save dialog, only allow the user to choose a file that has one of the file name extensions specified through IFileDialog::SetFileTypes.
  Public Const FOS_NOCHANGEDIR As UInteger = &H8 ' OFN_NOCHANGEDIR - Don't change the current working directory.
  Public Const FOS_PICKFOLDERS As UInteger = &H20 'Present an Open dialog that offers a choice of folders rather than files.
  Public Const FOS_FORCEFILESYSTEM As UInteger = &H40 'Ensures that returned items are file system items (SFGAO_FILESYSTEM).
  Public Const FOS_ALLNONSTORAGEITEMS As UInteger = &H80 'Enables the user to choose any item in the Shell namespace, not just those with SFGAO_STREAM or SFAGO_FILESYSTEM attributes. This flag cannot be combined with FOS_FORCEFILESYSTEM.
  Public Const FOS_NOVALIDATE As UInteger = &H100 'Do not check for situations that would prevent an application from opening the selected file, such as sharing violations or access denied errors.
  Public Const FOS_ALLOWMULTISELECT As UInteger = &H200 'OFN_ALLOWMULTISELECT - Enables the user to select multiple items in the open dialog. Note that when this flag is set, the IFileOpenDialog interface must be used to retrieve those items.
  Public Const FOS_PATHMUSTEXIST As UInteger = &H800 'OFN_PATHMUSTEXIST - The item returned must be in an existing folder. This is a default value.
  Public Const FOS_FILEMUSTEXIST As UInteger = &H1000 'OFN_FILEMUSTEXIST - The item returned must exist. This is a default value for the Open dialog.
  Public Const FOS_CREATEPROMPT As UInteger = &H2000 'OFN_CREATEPROMPT - Prompt for creation if the item returned in the save dialog does not exist. Note that this does not actually create the item.
  Public Const FOS_SHAREAWARE As UInteger = &H4000 'OFN_SHAREAWARE - In the case of a sharing violation when an application is opening a file, call the application back through OnShareViolation for guidance. This flag is overridden by FOS_NOVALIDATE.
  Public Const FOS_NOREADONLYRETURN As UInteger = &H8000 'OFN_NOREADONLYRETURN - Do not return read-only items. This is a default value for the Save dialog.
  Public Const FOS_NOTESTFILECREATE As UInteger = &H10000 'OFN_NOTESTFILECREATE - Do not test whether creation of the item as specified in the Save dialog will be successful. If this flag is not set, the calling application must handle errors, such as denial of access, discovered when the item is created.
  Public Const FOS_HIDEMRUPLACES As UInteger = &H20000 'OFN_NONETWORKBUTTON - Hide the list of places from which the user has recently opened or saved items. This value is not supported as of Windows 7.
  Public Const FOS_HIDEPINNEDPLACES As UInteger = &H40000 'OFN_NOLONGNAMES - Windows 7 and later. Hide all of the standard namespace locations (such as Favorites, Libraries, Computer, and Network) shown in the navigation pane.
  Public Const FOS_NODEREFERENCELINKS As UInteger = &H100000 'OFN_NODEREFERENCELINKS - Shortcuts should not be treated as their target items. This allows an application to open a .lnk file rather than what that file is a shortcut to.
  Public Const FOS_DONTADDTORECENT As UInteger = &H2000000 'OFN_DONTADDTORECENT - Do not add the item being opened or saved to the recent documents list (SHAddToRecentDocs).
  Public Const FOS_FORCESHOWHIDDEN As UInteger = &H10000000 'OFN_FORCESHOWHIDDEN - Include hidden and system items.
  Public Const FOS_DEFAULTNOMINIMODE As UInteger = &H20000000 'Indicates to the Save As dialog box that it should open in expanded mode. Expanded mode is the mode that is set and unset by clicking the button in the lower-left corner of the Save As dialog box that switches between Browse Folders and Hide Folders when clicked. This value is not supported as of Windows 7.
  Public Const FOS_FORCEPREVIEWPANEON As UInteger = &H40000000 'Indicates to the Open dialog box that the preview pane should always be displayed.
  Public Const FOS_SUPPORTSTREAMABLEITEMS As Integer = &H80000000 'Indicates that the caller is opening a file as a stream (BHID_Stream), so there is no need to download that file.

  ' SIGDN enumeration
  Public Const SIGDN_FILESYSPATH As UInteger = &H80058000UI

#End Region

#Region "Structures"

  'Shell Reference > Shell Structures
  ' COMDLG_FILTERSPEC structure
  <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=4)>
  Public Structure COMDLG_FILTERSPEC
    <MarshalAs(UnmanagedType.LPWStr)>
    Dim pszName As String
    <MarshalAs(UnmanagedType.LPWStr)>
    Dim pszSpec As String
  End Structure

#End Region

#Region "COM"
...
  <ComImport(), ClassInterface(ClassInterfaceType.None), TypeLibType(TypeLibTypeFlags.FCanCreate), Guid("C0B4E2F3-BA21-4773-8DBA-335EC946EB8B")> _
  Friend Class FileSaveDialogRCW
  End Class

  'Shell Interfaces -> IFileDialog
  <ComImport(), Guid("42F85136-DB7E-439C-85F1-E4075D135FC8"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
  Friend Interface IFileDialog
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    <PreserveSig()> _
    Function Show(<[In](), [Optional]()> ByVal hwndOwner As IntPtr) As UInteger
    'IModalWindow 

    '<MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    'Function SetFileTypes(<[In]()> ByVal cFileTypes As UInteger, <[In](), MarshalAs(UnmanagedType.LPArray)> ByVal rgFilterSpec As IntPtr) As UInteger
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetFileTypes(<[In]()> ByVal cFileTypes As UInteger, <[In](), MarshalAs(UnmanagedType.LPArray)> ByVal rgFilterSpec As COMDLG_FILTERSPEC()) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetFileTypeIndex(<[In]()> ByVal iFileType As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetFileTypeIndex(ByRef piFileType As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function Advise(<[In](), MarshalAs(UnmanagedType.[Interface])> ByVal pfde As IntPtr, ByRef pdwCookie As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function Unadvise(<[In]()> ByVal dwCookie As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetOptions(<[In]()> ByVal fos As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetOptions(ByRef fos As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Sub SetDefaultFolder(<[In](), MarshalAs(UnmanagedType.[Interface])> ByVal psi As IShellItem)

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetFolder(<[In](), MarshalAs(UnmanagedType.[Interface])> ByVal psi As IShellItem) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetFolder(<MarshalAs(UnmanagedType.[Interface])> ByRef ppsi As IShellItem) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetCurrentSelection(<MarshalAs(UnmanagedType.[Interface])> ByRef ppsi As IShellItem) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetFileName(<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszName As String) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetFileName(<MarshalAs(UnmanagedType.LPWStr)> ByRef pszName As String) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetTitle(<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszTitle As String) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetOkButtonLabel(<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszText As String) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetFileNameLabel(<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszLabel As String) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetResult(<MarshalAs(UnmanagedType.[Interface])> ByRef ppsi As IShellItem) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function AddPlace(<[In](), MarshalAs(UnmanagedType.[Interface])> ByVal psi As IShellItem, ByVal fdap As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetDefaultExtension(<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszDefaultExtension As String) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function Close(<MarshalAs(UnmanagedType.[Error])> ByVal hr As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetClientGuid(<[In]()> ByRef guid As Guid) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function ClearClientData() As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function SetFilter(<MarshalAs(UnmanagedType.[Interface])> ByVal pFilter As IntPtr) As UInteger
  End Interface


  'Shell Interfaces -> IShellItem
  <ComImport(), Guid("43826D1E-E718-42EE-BC55-A1E261C37BFE"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
  Friend Interface IShellItem
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function BindToHandler(<[In]()> ByVal pbc As IntPtr, <[In]()> ByRef rbhid As Guid, <[In]()> ByRef riid As Guid, <Out(), MarshalAs(UnmanagedType.[Interface])> ByRef ppvOut As IntPtr) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetParent(<MarshalAs(UnmanagedType.[Interface])> ByRef ppsi As IShellItem) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetDisplayName(<[In]()> ByVal sigdnName As UInteger, ByRef ppszName As IntPtr) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function GetAttributes(<[In]()> ByVal sfgaoMask As UInteger, ByRef psfgaoAttribs As UInteger) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function Compare(<[In](), MarshalAs(UnmanagedType.[Interface])> ByVal psi As IShellItem, <[In]()> ByVal hint As UInteger, ByRef piOrder As Integer) As UInteger
  End Interface

#End Region

Public Class IISaveFileDialog
  Implements IDisposable

  Private Const S_OK As UInteger = &H0

  'Shell Reference > Shell Functions
  Private Declare Unicode Function SHCreateItemFromParsingName Lib "shell32.dll" _
   (ByVal pszPath As String, ByVal pbc As IntPtr, ByRef riid As Guid, ByRef ppv As IShellItem) As Integer

  'local variable(s) to hold property value(s)
  Private m_Filter As String
  Private m_FilterIndex As Integer
  Private m_FileName As String
  Private m_DefaultExt As String
  Private m_InitialFolder As String
  Private m_DefaultFolder As String
  Private m_Title As String
  Private m_OverwritePrompt As Boolean = True 'по умолчанию выводить штатный диалог о перезаписи
  Private m_File As String 'сюда пишем выбранный файл с путем

  ''' <summary>
  ''' Gets/sets the file types that the dialog can save.
  ''' </summary>
  Public Property Filter() As String
    Get
      Return m_Filter
    End Get
    Set(ByVal value As String)
      m_Filter = value
    End Set
  End Property

  ''' <summary>
  ''' Gets/sets the file types that the dialog can save.
  ''' </summary>
  Public Property FilterIndex As Integer
    Get
      Return m_FilterIndex
    End Get
    Set(ByVal value As Integer)
      m_FilterIndex = value
    End Set
  End Property

  ''' <summary>
  ''' Gets/sets the file name that appears in the File name edit box when that dialog box is opened.
  ''' </summary>
  Public Property FileName() As String
    Get
      Return m_FileName
    End Get
    Set(ByVal value As String)
      m_FileName = value
    End Set
  End Property

  ''' <summary>
  ''' Gets/sets the default extension to be added to file names.
  ''' </summary>
  Public Property DefaultExt() As String
    Get
      Return m_DefaultExt
    End Get
    Set(ByVal value As String)
      m_DefaultExt = value
    End Set
  End Property

  ''' <summary>
  ''' Gets/sets folder in which dialog will be open.
  ''' </summary>
  Public Property InitialFolder() As String
    Get
      Return m_InitialFolder
    End Get
    Set(ByVal value As String)
      m_InitialFolder = value
    End Set
  End Property

  ''' <summary>
  ''' Gets/sets directory in which dialog will be open if there is no recent directory available.
  ''' </summary>
  Public Property DefaultFolder() As String
    Get
      Return m_DefaultFolder
    End Get
    Set(ByVal value As String)
      m_DefaultFolder = value
    End Set
  End Property

  ''' <summary>
  ''' Gets selected file.
  ''' </summary>
  Public Property File() As String
    Get
      Return m_File
    End Get
    Private Set(ByVal value As String)
      m_File = value
    End Set
  End Property

  ''' <summary>
  ''' Gets/sets the title of the dialog.
  ''' </summary>
  Public Property Title() As String
    Get
      Return m_Title
    End Get
    Set(ByVal value As String)
      m_Title = value
    End Set
  End Property

  ''' <summary>
  ''' Gets/sets the title of the dialog.
  ''' </summary>
  Public Property OverwritePrompt() As Boolean
    Get
      Return m_OverwritePrompt
    End Get
    Set(ByVal value As Boolean)
      m_OverwritePrompt = value
    End Set
  End Property


  Public Function ShowDialog(ByVal owner As IWin32Window) As DialogResult
    If Environment.OSVersion.Version.Major >= 6 Then
      Dim frm = DirectCast(New FileSaveDialogRCW(), IFileDialog)

      Dim options As UInteger
      frm.GetOptions(options)
      options = options Or FOS_NOCHANGEDIR Or FOS_FORCEFILESYSTEM Or FOS_NOVALIDATE Or FOS_NOTESTFILECREATE Or FOS_DONTADDTORECENT
      If Me.OverwritePrompt Then 'подтверждать перезапись существующего файла
        options = options Or FOS_OVERWRITEPROMPT
      Else
        options = options And Not FOS_OVERWRITEPROMPT
      End If
      frm.SetOptions(options)

      ' Set the filter
      If Not String.IsNullOrEmpty(Me.Filter) Then
        Dim filterElements As String() = Me.Filter.Split(New Char() {"|"c})
        Dim num_elements As Integer = filterElements.Length
        'число элементов должно быть кратно двум, вообще формат фильтра на совести вызывающего кода
        If num_elements Mod 2 <> 0 Then num_elements = num_elements - 1
        If num_elements > 0 Then
          Dim mas_filter As COMDLG_FILTERSPEC() = New COMDLG_FILTERSPEC(num_elements / 2 - 1) {}
          For x As Integer = 0 To num_elements - 1 Step 2
            mas_filter(x / 2).pszName = filterElements(x)
            mas_filter(x / 2).pszSpec = filterElements(x + 1)
          Next
          frm.SetFileTypes(CUInt(mas_filter.Length), mas_filter)

          ' Set the filter index (1-based)
          If Me.FilterIndex > 0 AndAlso Me.FilterIndex <= mas_filter.Length Then _
           frm.SetFileTypeIndex(CUInt(Me.FilterIndex))
        End If
      End If

      ' Set the default file name
      If Me.FileName IsNot Nothing Then
        frm.SetFileName(Me.FileName)
      End If

      ' Default extension
      If Not String.IsNullOrEmpty(Me.DefaultExt) Then
        frm.SetDefaultExtension(Me.DefaultExt)
      End If

      If Not String.IsNullOrEmpty(Me.InitialFolder) Then
        Dim directoryShellItem As IShellItem = Nothing
        Dim riid = New Guid("43826D1E-E718-42EE-BC55-A1E261C37BFE")
        'IShellItem
        If SHCreateItemFromParsingName(Me.InitialFolder, IntPtr.Zero, riid, directoryShellItem) = S_OK Then
          frm.SetFolder(directoryShellItem)
        End If
      End If

      If Not String.IsNullOrEmpty(Me.DefaultFolder) Then
        Dim directoryShellItem As IShellItem = Nothing
        Dim riid = New Guid("43826D1E-E718-42EE-BC55-A1E261C37BFE")
        'IShellItem
        If SHCreateItemFromParsingName(Me.DefaultFolder, IntPtr.Zero, riid, directoryShellItem) = S_OK Then
          frm.SetDefaultFolder(directoryShellItem)
        End If
      End If

      If Me.Title IsNot Nothing Then
        frm.SetTitle(Me.Title)
      End If

      If frm.Show(owner.Handle) = S_OK Then
        Dim shellItem As IShellItem = Nothing
        If frm.GetResult(shellItem) = S_OK Then
          Dim pszString As IntPtr
          If shellItem.GetDisplayName(SIGDN_FILESYSPATH, pszString) = S_OK Then
            If pszString <> IntPtr.Zero Then
              Try
                Me.File = Marshal.PtrToStringAuto(pszString)
                Return DialogResult.OK
              Finally
                Marshal.FreeCoTaskMem(pszString)
              End Try
            End If
          End If
        End If
      End If
      Return DialogResult.Cancel
    Else
      '!!!не надо это использовать на XP/2003 -ясно что работать не будет
      Return DialogResult.Cancel
    End If
  End Function

  Public Sub Dispose() Implements IDisposable.Dispose
    'just to have possibility of Using statement.
  End Sub

End Class

 'Shell Interfaces -> IFileDialogCustomize
  <ComImport, Guid("e6fdd21a-163f-4975-9c8c-a69f1ba37034"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
  Friend Interface IFileDialogCustomize
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub EnableOpenDropDown(
    <[In]> ByVal dwIDCtl As Integer)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddMenu(
    <[In]> ByVal dwIDCtl As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszLabel As String)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddPushButton(
    <[In]> ByVal dwIDCtl As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszLabel As String)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddComboBox(
    <[In]> ByVal dwIDCtl As Integer)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddRadioButtonList(
    <[In]> ByVal dwIDCtl As Integer)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddCheckButton(
    <[In]> ByVal dwIDCtl As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszLabel As String,
    <[In]> ByVal bChecked As Boolean)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddEditBox(
    <[In]> ByVal dwIDCtl As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszText As String)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddSeparator(
    <[In]> ByVal dwIDCtl As Integer)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddText(
    <[In]> ByVal dwIDCtl As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszText As String)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub SetControlLabel(
    <[In]> ByVal dwIDCtl As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszLabel As String)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub GetControlState(
    <[In]> ByVal dwIDCtl As Integer,
    <Out> ByRef pdwState As CDCONTROLSTATE)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub SetControlState(
    <[In]> ByVal dwIDCtl As Integer,
    <[In]> ByVal dwState As CDCONTROLSTATE)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub GetEditBoxText(
    <[In]> ByVal dwIDCtl As Integer,
    <Out> ByVal ppszText As IntPtr)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub SetEditBoxText(
    <[In]> ByVal dwIDCtl As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszText As String)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub GetCheckButtonState(
    <[In]> ByVal dwIDCtl As Integer,
    <Out> ByRef pbChecked As Boolean)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub SetCheckButtonState(
    <[In]> ByVal dwIDCtl As Integer,
    <[In]> ByVal bChecked As Boolean)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub AddControlItem(
    <[In]> ByVal dwIDCtl As Integer,
    <[In]> ByVal dwIDItem As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszLabel As String)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub RemoveControlItem(
    <[In]> ByVal dwIDCtl As Integer,
    <[In]> ByVal dwIDItem As Integer)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub RemoveAllControlItems(
    <[In]> ByVal dwIDCtl As Integer)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub GetControlItemState(
    <[In]> ByVal dwIDCtl As Integer,
    <[In]> ByVal dwIDItem As Integer,
    <Out> ByRef pdwState As CDCONTROLSTATE)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub SetControlItemState(
    <[In]> ByVal dwIDCtl As Integer,
    <[In]> ByVal dwIDItem As Integer,
    <[In]> ByVal dwState As CDCONTROLSTATE)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub GetSelectedControlItem(
    <[In]> ByVal dwIDCtl As Integer,
    <Out> ByRef pdwIDItem As Integer)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub SetSelectedControlItem(
    <[In]> ByVal dwIDCtl As Integer,
    <[In]> ByVal dwIDItem As Integer)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub StartVisualGroup(
    <[In]> ByVal dwIDCtl As Integer,
    <[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszLabel As String)
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub EndVisualGroup()
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
    Sub MakeProminent(
    <[In]> ByVal dwIDCtl As Integer)
  End Interface

  <ComImport, Guid("973510DB-7D7F-452B-8975-74A85828D354"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
  Friend Interface IFileDialogEvents
    ' NOTE: some of these callbacks are cancelable - returning S_FALSE means that 
    ' the dialog should not proceed (e.g. with closing, changing folder); to 
    ' support this, we need to use the PreserveSig attribute to enable us to return
    ' the proper HRESULT
    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    <PreserveSig()> _
    Function OnFileOk(<[In], MarshalAs(UnmanagedType.[Interface])> ByVal pfd As IFileDialog) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    <PreserveSig()> _
    Function OnFolderChanging(<[In], MarshalAs(UnmanagedType.[Interface])> ByVal pfd As IFileDialog, <[In], MarshalAs(UnmanagedType.[Interface])> ByVal psiFolder As IShellItem) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function OnFolderChange(<[In], MarshalAs(UnmanagedType.[Interface])> ByVal pfd As IFileDialog) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function OnSelectionChange(<[In], MarshalAs(UnmanagedType.[Interface])> ByVal pfd As IFileDialog) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function OnShareViolation(<[In], MarshalAs(UnmanagedType.[Interface])> ByVal pfd As IFileDialog,
    <[In], MarshalAs(UnmanagedType.[Interface])> ByVal psi As IShellItem, <Out> ByRef pResponse As FDE_SHAREVIOLATION_RESPONSE) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function OnTypeChange(
    <[In], MarshalAs(UnmanagedType.[Interface])> ByVal pfd As IFileDialog) As UInteger

    <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
    Function OnOverwrite(
    <[In], MarshalAs(UnmanagedType.[Interface])> ByVal pfd As IFileDialog,
    <[In], MarshalAs(UnmanagedType.[Interface])> ByVal psi As IShellItem, <Out> ByRef pResponse As FDE_OVERWRITE_RESPONSE) As UInteger
  End Interface

   [ComImport,
    Guid(IIDGuid.IFileDialogControlEvents),
    InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    internal interface IFileDialogControlEvents
    {

        [MethodImpl(MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
        void OnItemSelected([In, MarshalAs(UnmanagedType.Interface)] IFileDialogCustomize pfdc, [In] int dwIDCtl, [In] int dwIDItem);
        [MethodImpl(MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
        void OnButtonClicked([In, MarshalAs(UnmanagedType.Interface)] IFileDialogCustomize pfdc, [In] int dwIDCtl);
        [MethodImpl(MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
        void OnCheckButtonToggled([In, MarshalAs(UnmanagedType.Interface)] IFileDialogCustomize pfdc, [In] int dwIDCtl, [In] bool bChecked);
        [MethodImpl(MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
        void OnControlActivating([In, MarshalAs(UnmanagedType.Interface)] IFileDialogCustomize pfdc, [In] int dwIDCtl);
    }
 

   class VistaFileDialogEvents : Ookii.Dialogs.Wpf.Interop.IFileDialogEvents, Ookii.Dialogs.Wpf.Interop.IFileDialogControlEvents
    {
        const uint S_OK = 0;
        const uint S_FALSE = 1;
        const uint E_NOTIMPL = 0x80004001;

        private VistaFileDialog _dialog;

        public VistaFileDialogEvents(VistaFileDialog dialog)
        {
            if( dialog == null )
                throw new ArgumentNullException("dialog");

            _dialog = dialog;
        }

        #region IFileDialogEvents Members

        public Ookii.Dialogs.Wpf.Interop.HRESULT OnFileOk(Ookii.Dialogs.Wpf.Interop.IFileDialog pfd)
        {
            if( _dialog.DoFileOk(pfd) )
                return Ookii.Dialogs.Wpf.Interop.HRESULT.S_OK;
            else
                return Ookii.Dialogs.Wpf.Interop.HRESULT.S_FALSE;
        }

        public Ookii.Dialogs.Wpf.Interop.HRESULT OnFolderChanging(Ookii.Dialogs.Wpf.Interop.IFileDialog pfd, Ookii.Dialogs.Wpf.Interop.IShellItem psiFolder)
        {
            return Ookii.Dialogs.Wpf.Interop.HRESULT.S_OK;
        }

        public void OnFolderChange(Ookii.Dialogs.Wpf.Interop.IFileDialog pfd)
        {
        }

        public void OnSelectionChange(Ookii.Dialogs.Wpf.Interop.IFileDialog pfd)
        {
        }

        public void OnShareViolation(Ookii.Dialogs.Wpf.Interop.IFileDialog pfd, Ookii.Dialogs.Wpf.Interop.IShellItem psi, out NativeMethods.FDE_SHAREVIOLATION_RESPONSE pResponse)
        {
            pResponse = NativeMethods.FDE_SHAREVIOLATION_RESPONSE.FDESVR_DEFAULT;
        }

        public void OnTypeChange(Ookii.Dialogs.Wpf.Interop.IFileDialog pfd)
        {
        }

        public void OnOverwrite(Ookii.Dialogs.Wpf.Interop.IFileDialog pfd, Ookii.Dialogs.Wpf.Interop.IShellItem psi, out NativeMethods.FDE_OVERWRITE_RESPONSE pResponse)
        {
            pResponse = NativeMethods.FDE_OVERWRITE_RESPONSE.FDEOR_DEFAULT;
        }

        #endregion

        #region IFileDialogControlEvents Members

        public void OnItemSelected(Ookii.Dialogs.Wpf.Interop.IFileDialogCustomize pfdc, int dwIDCtl, int dwIDItem)
        {
        }

        public void OnButtonClicked(Ookii.Dialogs.Wpf.Interop.IFileDialogCustomize pfdc, int dwIDCtl)
        {
        }

        public void OnCheckButtonToggled(Ookii.Dialogs.Wpf.Interop.IFileDialogCustomize pfdc, int dwIDCtl, bool bChecked)
        {
        }

        public void OnControlActivating(Ookii.Dialogs.Wpf.Interop.IFileDialogCustomize pfdc, int dwIDCtl)
        {
        }

        #endregion


    }

  ''' <summary>
  ''' Implemented and used by containers and objects to obtain window handles
  ''' and manage context-sensitive help.
  ''' </summary>
  ''' <remarks>
  ''' The IOleWindow interface provides methods that allow an application to obtain
  ''' the handle to the various windows that participate in in-place activation,
  ''' and also to enter and exit context-sensitive help mode.
  ''' </remarks>
  <ComImport(), Guid("00000114-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
  Public Interface IOleWindow
    ''' <summary>
    ''' Returns the window handle to one of the windows participating in in-place activation
    ''' (frame, document, parent, or in-place object window).
    ''' </summary>
    ''' <param name="phwnd">Pointer to where to return the window handle.</param>
    Sub GetWindow(<System.Runtime.InteropServices.Out()> ByRef phwnd As IntPtr)

    ''' <summary>
    ''' Determines whether context-sensitive help mode should be entered during an
    ''' in-place activation session.
    ''' </summary>
    ''' <param name="fEnterMode"><c>true</c> if help mode should be entered;
    ''' <c>false</c> if it should be exited.</param>
    Sub ContextSensitiveHelp(<[In](), MarshalAs(UnmanagedType.Bool)> ByVal fEnterMode As Boolean)
  End Interface