Как спомощью com компоненты Microsoft Common Dialog Control 6.0 открывать диалоги?

  With CommonDialog1
    .flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNExplorer ' Or cdlOFNAllowMultiselect - если нужно много файлов
    .Filter = 'XXX Files|*.XXX|YYY Files|*.YYY|All Files|*.*'
    .InitDir = 'какой-то начальный директорий или пусто'
    .FileName = 'какое-то название файла или пусто'
    .ShowOpen
    If Len(.FileName) <> 0 Then
       ' сделать что-то с файлом
    EndIf
  End With

  With CommonDialog1
    .flags = cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNNoReadOnlyReturn Or cdlOFNOverwritePrompt
    .Filter = 'XXX Files|*.XXX|YYY Files|*.YYY|All Files|*.*'
    .InitDir = 'какой-то начальный директорий или пусто'
    .FileName = 'какое-то название файла или пусто'
 
    Call .ShowSave
 
    If Len(.FileName) <> 0 Then
       ' сделать что-то с файлом
    EndIf
  End With

Private Sub mnuOptionsFont_Click()
  Dim ctl As Control, fnt As Object
  On Error Resume Next
  Set fnt = Me.Font
  With CommonDialog1
    .FontName = fnt.name
    .FontSize = fnt.size
    .Color = Me.ForeColor
    .FontBold = fnt.Bold
    .FontItalic = fnt.Italic
    .FontStrikethru = fnt.Strikethrough
    .FontUnderline = fnt.Underline
    .flags = cdlCFANSIOnly Or cdlCFScreenFonts Or cdlCFEffects
 
    Call .ShowFont
 
    fnt.name = .FontName
    fnt.size = .FontSize
    fnt.Bold = False
    fnt.Italic = .FontItalic
    fnt.Strikethrough = .FontStrikethru
    fnt.Underline = .FontUnderline
  End With
  For Each ctl In Controls
    Set ctl.Font = fnt
    If TypeName(ctl) = 'TreeView' Then
      ctl.Indentation = 5 * fnt.size
    ElseIf TypeName(ctl) = 'StatusBar' Then
      ctl.Height = Me.TextHeight('X') + 120
    End If
  Next
  Call Form_Resize
End Sub