いつも拝見させて頂き、とても助かっています。

さてさて、MsgBoxの警告メッセージ等のアイコン(vbCritical等他３ヶ）を
ユーザーフォームに用意したイメージ或いはピクチャーに表示出来ないでしょうか？

しかし、別途用意したiconファイルではなく、Windowsが標準で持っている
アイコンを使用し表示したのです。

環境
WindowsXP　SP2
VB6　SP5

どうか諸先生方宜しくお願い致します。

>MsgBoxの警告メッセージ等のアイコン(vbCritical等他３ヶ）を
vbCritical / vbQuestion / vbExclamation / vbInformation の４ヶですよね。

どうも、User32.DLL 内に入っているアイコンを使っているようですね。

     User32.DLL からの取得結果
     http://hanatyan.sakura.ne.jp/samplepic/user32dll_ico.gif

LoadIcon APIでIDI_ERRORを指定すれば、アイコンハンドルが取れるので、
stdole.IPictureDispに変換するとか。

Option Explicit

Private Declare Function LoadIcon Lib "user32" Alias "LoadIconA" _
    (ByVal hInstance As Long, ByVal lpIconName As Long) As Long
Private Const IDI_ERROR As Long = &H7F01&
Private Const IDI_QUESTION As Long = &H7F02&
Private Const IDI_EXCLAMATION As Long = &H7F03&
Private Const IDI_INFORMATION As Long = &H7F04&

Private Sub Command1_Click()
    Me.Picture1.Picture = CreateIconPicture(LoadIcon(0&, IDI_INFORMATION))
End Sub

※CreateIconPictureは
http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200612/06120314.txt

花ちゃんさん、Blueさん、ご指導ありがとうございました。
Blueさんの記述内容とリンク先参照で無事表示することが
できました。
それにしても、みなさん凄いです！！
ありがとうございました。
今後ともどうぞ宜しくお願い致します。