1. Buatlah folder tempat menggabungkan aplikasi
2. Copy aplikasi pertama yang sudah jadi ke folder tersebut termasuk file yang sudah
dibentuk exe, dan Copy juga aplikasi kedua yang sudah jadi termasuk file yang
sudah dibentuk exe
3. Buatlah sebuah project baru, di form baru tersebut buatlah menjadi menu
4. Buatlah HIPO
5. Ketiklah koding berikut ini
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
Private Sub mnakuntansi_Click()
Dim result As Long
result = ShellExecute(Me.hwnd, "open", "D:\Contoh Program VB\0 TNT
VB\Menggabungkan program\12 Program Akuntansi\Program AKUNTANSI.exe",
"", "", SW_HIDE)
End Sub
Private Sub mnkoperasi_Click()
Dim result1 As Long
result1 = ShellExecute(Me.hwnd, "open", "D:\Contoh Program VB\0 TNT
VB\Menggabungkan program\15 Program Koperasi\PROGRAM KOPERASI.exe", "",
"", SW_HIDE)
End Sub
6. RUN program
Cara yang lebih jelas, silahkan klik disini
