OSのバージョン情報ダイアログを表示する
Option Explicit
Private Declare Function ShellAbout Lib "shell32.dll"
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
Dim strTitle As String
Dim strB As String
strTitle = "ヘッダ"
strB = "ここに名前を記述する"
ret = ShellAbout(Me.hwnd, strTitle, strB,
0)
End Sub