انتخاب و Open کردن چند فایل با Common Dialog

سلام

میخواستم ببینم به جز کد زیر که برای بازکردن صفحه CommonDialog برای Open کردن چند فایل با هم استفاده میشه کد دیگری هم هست که همان StyleXP را رعایت کنه.
درکل کدی برای انتخاب کردن چند فایل همزمان به جز این کد

CommonDialog1.Flags = &H200
CommonDialog1.ShowOpen

ظاهر صفحه ای که باز میشه میخوام مثل وقتی باشه فقط یه فایل رو می خواهیم انتخاب کنیم

مرسی

سرچ ميكردي پيدا ميكردي.

کد:

---

Private Sub Command1_Click()
On Error GoTo cError

Dim i As Integer
Dim myFiles() As String
Dim myPath As String

    With CommonDialog1
        .MaxFileSize = 32000 'this will max out the buffer for the filenames array for large selections. *NEW*
        .CancelError = True 'if cancel is pressed, the code jumps to cError because of the On Error statement above
        .Filter = "All Files *.*/*.*" '*NOTE!!* The / should be a vertical pipe symbol here! It displays incorrectly here.
        .Flags = CD_FLAGS 'this is where we tell it to use multiselect
        .ShowOpen
       
        myFiles = Split(.FileName, vbNullChar) 'the Filename returned is delimeted by a null character because we selected the cdlOFNLongNames flag
       
        Select Case UBound(myFiles)
            Case 0 'if only one was selected we are done
                List1.AddItem myFiles(0)
            Case Is > 0 'if more than one, we need to loop through it and append the root directory
                For i = 1 To UBound(myFiles)
                    myPath = myFiles(0) & IIf(Right(myFiles(0), 1) <> "\", "\", "") & myFiles(i)
                    List1.AddItem myPath
                Next i
        End Select
   
    End With
    Exit Sub

cError:
    Beep
    MsgBox Err.Description '*NEW*
End Sub

---

سلام دوست عزیز
مرسی از جوابتون
اما ارور میداد
اما اگر به جای خط .Flags = CD_FLAGS
این رو تایپ کنید حل میشه
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly
بازم مرسی

براي من ارور نميده. Flags = CD_FLAGS هم ارور نميده.