Почему в процедуре OpenFileName при установке константы для множественного открытия файлов атрибута
OpenFile.flags = &H200&
форма приобретает дизайн windows 3.1?
Хотелось бы чтобы форма осталась в дизайне windows 9x - nt.

---------------
'определение
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
'Вызывает диалоговое окно выбора файла для сохранения
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
"GetSaveFileNameA" (pOpenfilename As OpenFileName) As Long

Private 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

' сам код программы

Private Sub Command1_Click()
Dim OpenFile As OpenFileName
Dim sFilter, a As String
Dim o As Integer
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = Me.hwnd
OpenFile.hInstance = App.hInstance
sFilter = "Все файлы (*.*)" & Chr$(0) & "*.*" & Chr$(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String$(255,  0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = ""
OpenFile.lpstrTitle = "Открыть файлы..."
OpenFile.flags = &H8000& + &H4& + &H8&' + &H200&
' почему как только строку &h200& разкоментируем (позволяя выбор нескольких файлов),
'появляется обычный интерфейс??!!!
' &H200&
'Определяет поле списка имен файлов, позволяет многократный выбор. Пользователь может 'выбрать более чем один файл. Имена выбранных файлов возвращаются свойством FileName 'строковой переменной и разграничены пробелами. Примечание. Не поддерживается длинные 'имена файлов (всего 8 букв)
'&H800&
'Определяет, что пользователь может вводить только допустимый путь, если флаг установлен и 'пользователь вводит недопустимый путь отображается сообщение.
'&H4&
'Делает невидимым переключатель Read Only.
'&H8000&
'Определяет вид диалогового окна подобно Explorer Windows95.(Только для Windows95)
'

GetOpenFileName OpenFile
Dim strFileName, temp As String
Dim cv, cv1 As Integer
strFileName = OpenFile.lpstrFile
If strFileName = "" Then Exit Sub
o = InStr(1, strFileName, Chr(0))
strFileName = Mid(strFileName, 1, o - 1)
If strFileName = "" Then RichTextBox1.Text = "": Exit Sub
End Sub

Цитата

OpenFile.flags = &H200&

вообще-то
OpenFile.flags = OpenFile.flags OR (&H200&)

А не проще будет вместо такого громоздкого кода написать свою форму, с FileListBox'om, DirListBox'om, DriveListBox'om ? И коротенькую ф-цию, которая выбирает по маске файлы, которые тебе нужны?

Voldemar2004
Напиши. Только такую, чтобы и из сети выбирать и чтобы по объему кода не превосходила изложенное выше.
Добавлено @ 00:24
Да, и не забудь еще и правильные иконки показывать, подсказки и все остальное.

Спасибо