[シェルについて]ダイアログを表示

＜はっきりいってあまり役に立ちませんが＞

宣言（準備としてまず次のMciSendStringの宣言を追加します）

(Private) Declare Function ShellAbout Lib "SHELL32" Alias "ShellAboutA" (ByVal hWnd&, ByVal szApp$, ByVal szOtherStuff$, ByVal hIcon&) As Long

引 数 説 明

WHandle	Long(HWND)	親のウィンドウハンドル（NullでもOK）
Text1	String	タイトルバー及び１行目のテキスト。改行は「#」で区別
Text2	String	テキスト２
Icon	Long	表示するアイコン（NullでもOK）

サ ン プ ル プ ロ グ ラ ム

プログラムを張りつけ実行し、フォームをクリックすると[シェルについて]ダイアログを表示します。

動作確認：Visual Basic 5.0,Windows98