こんにちは。分からないことがあるので投稿してみました。
Win98 SecondEdition でVB6.0 SP5を使っています。
Pictureボックスにファイル、フォルダをドラッグ(ドロップ？)して、ドラッグされたファイル、フォルダのアイコンを取得したいと思っています。exeファイルならそのexeファイルのアイコンを、WordドキュメントならWordのアイコンを、フォルダをドラッグしたらフォルダのアイコンをのですが、よく方法がわかりません。とくにフォルダをドラッグしてアイコンの取得とかが分かりません。
どなたかご存知の方教えてください。よろしくお願いします。

APIのSHGetFileInfo、DrawIconExを調べてみてください。
この２つのAPIで可能です。

＞takkさん
お返事ありがとうございました！！！
早速いろいろ調べてみて、時間がかかりましたがようやっとアイコン表示できました。
悩んでいた問題が解決しました。どうもありがとうございました！！！

ところで、DrawIconEx関数を使うときにDI_NORMALという定数を使ったほうがよさそうなのですが、これは3という値っぽいんですけど、APIビューアにはでてきませんでした。DI_NORMAL以外の定数も存在するのでしょうか？？？

さっき書き忘れていたんですが
不要になったら必ずDestroyIconで取得したアイコンを破棄してくださいね。

調べてみた とこのことなので大丈夫だと思いますが、念のため。

> ところで、DrawIconEx関数を使うときにDI_NORMALという定数を使ったほうがよさそうなのですが、こ>れは3という値っぽいんですけど、APIビューアにはでてきませんでした。DI_NORMAL以外の定数も存在
>するのでしょうか？？？

下記のようなのがあります。

Private Const DI_MASK = &H1         'マスクイメージのみを描画
Private Const DI_IMAGE = &H2        'カラーイメージのみを描画
Private Const DI_NORMAL = &H3       'DI_IMAGEと DI_MASKの組み合わせ（通常の描画）
Private Const DI_COMPAT = &H4       'システムサイズを使って描画
Private Const DI_DEFAULTSIZE = &H8  'サイズ指定を無視し、デフォルトのサイズで描画

DI_COMPAT Or DI_NORMAL　のように使用する場合もあります。

takkさん＞
追記ありがとうございました。メモリの解放については心得ていましたので大丈夫でした。書き込みあ
りがとうございました！！

花ちゃんさん＞
御返事ありがとうございました！DI_NORMAL定数は何者なんだ？と思っていました。多分読み込めないの
でしょうか？現時点ではやってないのでわかりませんが、定数を変えるとどうなるかは自分でやってみよ
うと思います。ありがとうございました！！