【VISUAL VB NET】Shell About Dialog

 Imports System

Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Threading.Tasks Imports System.Windows.Forms ' make sure that using System.Diagnostics; is included Imports System.Diagnostics ' make sure that using System.Security.Principal; is included Imports System.Security.Principal ' make sure that using System.Runtime.InteropServices; is included Imports System.Runtime.InteropServices ' make sure that using System.Reflection; is included Imports System.Reflection Public Class Form1 <DllImport("shell32.dll")> _ Private Shared Function ShellAbout(hWnd As IntPtr, szApp As String, szOtherStuff As String, hIcon As IntPtr) As Integer End Function Public Sub New() MyBase.New() InitializeComponent() End Sub Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click ShellAbout(Me.Handle, "AppName " & Assembly.GetExecutingAssembly().GetName().Version.ToString(), "", IntPtr.Zero) End Sub End Class