Как вызвать окно выбора каталога или в окне выбора файлов разрешить выделять сразу несколько файлов?

Мне необходимо из каталога получить имена всех файлов чертежей, чтобы потом их в виде блоков вставить в один общий чертёж.
Для начала начал использовать функцию ShowOpen:
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As OPENFILENAME) As Long
Public Const OFN_HIDEREADONLY = &H4
Public Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type
'@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@
' Display and use the File open dialog
'@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@
Public Function ShowOpen() As String
  Dim strTemp As String
  Dim VertName As OPENFILENAME
  VertName.lStructSize = Len(VertName)
  VertName.hwndOwner = ThisDrawing.hWnd
  VertName.lpstrFilter = "×åðò¸æ AutoCAD2000 (*.dwg)" + Chr$(0) + "*.dwg" + Chr$(0)
  VertName.lpstrFile = Space$(254)
  VertName.nMaxFile = 255
  VertName.lpstrFileTitle = Space$(254)
  VertName.nMaxFileTitle = 255
  VertName.lpstrInitialDir = CurDir
  VertName.lpstrTitle = "Открытие файлов чертежей"
  VertName.flags = 0
  If GetOpenFileName(VertName) Then
    strTemp = (Trim(VertName.lpstrFile))
    ShowOpen = Mid(strTemp, 1, Len(strTemp) - 1)
  End If
End Function
Но эта функция (или данные настройки) позволяет выделить только один файл в окне выбора фалов. Какие мне надо задать ключи или настройки чтобы можно было выделить несколько файлов одновременно?
Я могу поступить и другим образом: Задать имя калога и попытаться в этом каталоге выбрать названия всех необходимых файлов с помощью функции Dir? Только не знаю какой функцией можно вызвать окно выбора каталога а не файлов. Нучите, если знаете, вызывать это окно или сделать правильные настройки в окне выбора файлов для выбора множества файлов!