Membuat About Box Dengan Memanfaatkan Default Windows

Mengenai cara menampilkan kotak dialog About default windows menggunakan Visual Basic 6 - Apabila kita malas membuat tampilan kotak dialog About, mungkin kode di bawah adalah alternatif yang tepat, selain itu ia memiliki tampilan (GUI) yang menarik, adapun cara menampilkan kotak dialog about default windows adalah sebagai berikut:

'simpan kode di bawah ini dalam module 
Option Explicit 
 
Public 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 
 
Public Sub ShowAboutDialog(hwnd As Long, Caption As String, Txt As String, Icon As Long) 
    Call ShellAbout(hwnd, Caption, Txt, Icon) 
End Sub 

Contoh penggunaan kode untuk menampilkan kotak dialog about:

Private Sub cmdAbout_Click() 
    ShowAboutDialog Me.hwnd, "About My-Sofware", "Software Versi ke-1", Me.Icon 
End Sub