ダイアログの表示の際に縮小版を表示するには？

---

下記の処理にてダイアログボックスを表示して画像を選択するプログラムを
作成しているのですが、指定した場所を開くことはできたのですが、
ファイルの種類がいつも一覧になっていて毎回縮小版にしなければなりません。
これをダイアログを開いたときに縮小版で表示することはできるのでしょうか？

ちなみに環境はWindows2000でVB6.0SP6です。
よろしくお願いします。

Const OFN_EXPLORER = &H80000
Const OFN_FILEMUSTEXIST = &H1000
Const OFN_PATHMUSTEXIST = &H800
Const OFN_HIDEREADONLY = &H4
Const OFN_DONTADDTORECENT = &H2000000
Const MAX_PATH = 260

Dim gsInitDir, giFilterIndex

Private Function getFileName(sPath, sTitle)
    Dim cDlg As Object
    Set cDlg = Me.CommonDialog1
    cDlg.InitDir = gsInitDir
    cDlg.FilterIndex = giFilterIndex
    cDlg.Filter = "All files (*.*)"
    cDlg.DialogTitle = sTitle
    cDlg.Flags = OFN_EXPLORER Or OFN_FILEMUSTEXIST Or _
    OFN_PATHMUSTEXIST Or OFN_HIDEREADONLY Or OFN_DONTADDTORECENT
    cDlg.MaxFileSize = MAX_PATH
    cDlg.ShowOpen
    gsInitDir = cDlg.InitDir
    giFilterIndex = cDlg.FilterIndex
    getFileName = cDlg.FileName
End Function

編集 削除

---

http://www.dotnet247.com/247reference/msgs/8/44788.aspx

編集 削除

---

ごみプロです。

http://helloweb.ddo.jp/CabTemp/縮小表示コモンダイアログ.lzh

編集 削除

---

みなさんありがとうございます。

はいこーんさんのサイトを見たのですがちょっとどこを見たらいいのかわかりませんでした・・・

クラゲさんわざわざプログラムを作っていただいて恐縮です。
ダウンロードして実行してみたのですが通常のダイアログ表示でどうも
うまく縮小版になっていないようです。
どこか変更する必要があるのでしょうか？

編集 削除

---

XPだけかも・・・

http://www.vbaccelerator.com/home/VB/Code/Libraries/Common_Dialogs/Common_Dialog_Direct/bugTrak1419-6.asp

編集 削除

---

Win2000 (SP4), XP (SP2)では、
うまく表示されるみたいですね。
その他は、よくわかりません。
申し訳ない TT

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。