Programer Go Blogs !!

Jalankan IDE (Integrated Developement Environment) Visual Basic dengan meng-klik shortcut Microsoft Visual Basic 6.0.
Setelah kotak dialog “New Project” tampil, pilih standard.exe

Tambahkan icon Common Dialog dan Command Button pada Form yang sudah tersedia.
Jika icon Common Dialog tersebut belum ada di toolbox, maka kita harus menambahkan / mengaktifkan komponen Microsoft Common Dialog 6.0 (SP3) yang ada pada sub menu Components. Caranya, dengan meng-klik kanan pada toolbox Dan pilih Components.
Klik Microsoft Common Dialog 6.0 (SP3), lalu Apply Dan Ok.

Tambahkan kode fungsi API ke jendela kode :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_HIDE = 0

Lalu, masukan kode di bawah ke dalam sub command1_click() :

Dim result As Long
CommonDialog1.Filter = "File Executable|*.exe"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
Else
result = ShellExecute(Me.hwnd, "open", (CommonDialog1.FileName), "", "", SW_HIDE)
End If

Selamat mencoba……………….
Upzz, jangan lupa comment-nya ! !