１１５．「・・・バージョン情報」ダイアログを表示する

＜　使用用途　＞
汎用性がないので使えない

サンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・下記のソースとおなじです。

　＜　説明　＞
ＡＰＩ関数のShellAboutを使用します
ShellAbout ＝＞「・・・バージョン情報」ダイアログを表示
　　＜引数＞
　　　　　hWnd：親ウインドウのハンドル
　　　　　szApp：タイトル
　　　　　szOtherStuff：コメントの部分？
　　　　　hIcon：アイコンのハンドル（0にするとMicroSoft社ロゴ）
　　＠戻り値＠
　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function ShellAbout Lib "SHELL32" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

'ここからはフォームの処理です
Private Sub Command1_Click()

　Dim Ret As Long
　　Ret = ShellAbout(hWnd, "「MADIAのVB研究室」", vbCrLf & "「MADIAのVB研究室」はMADIAとPAPYの二人で運営しています。", Form1.Icon)

End Sub