Membuat Form About Model Windows

Ingin membuat form about yang sama seperti bawaan Windows pada aplikasi anda seperti diatas??
Berikut saya akan share kode sekaligus link download contoh projectnya.

VB 6.0

Pada bagian '(Declarations)' dari Form ketikkan:

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

Untuk memanggilnya ketikkan :

ShellAbout Me.hWnd, "Nama Aplikasi", "Deskripsi", Me.Icon

VB .NET

Pada bagian '(Declarations)' dari Form ketikkan :

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Integer, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Integer) As Integer

Untuk memanggilnya ketikkan :

ShellAbout(Me.Handle.ToInt32, "Nama Aplikasi", "Deskripsi", Me.Icon.Handle.ToInt32)

DOWNLOAD SC VB 6.0
DOWNLOAD SC VB .NET