戻る
Private Sub Command1_Click() MsgBox App.Title & Chr(13) & _ "Version: " & App.Major & "." & App.Minor & "." & App.Revision, _ vbInformation, App.Title & "のVersion情報" End Sub
Private Sub Command1_Click()
MsgBox App.Title & Chr(13) & _ "Version: " & App.Major & "." & App.Minor & "." & App.Revision, _ vbInformation, App.Title & "のVersion情報"
End Sub