VB6 Code - Tunggu Hingga Aplikasi Selesai Dijalankan

Artikel di bawah ini kami beri judul Tunggu hingga Aplikasi selesai dijalankan, maksudnya menjalankan sebuah aplikasi kemudian kode yang berada sesudahnya menunggu (tidak dieksekusi [dijalankan]) sebelum aplikasi tersebut ditutup terlebih dahulu. Bagaimana implementasinya dalam pengkodean Visual Basic 6.0, copy dan pastekan kode di bawah ini kemudian buatlah 1 objek CommandButton.

Fungsi tunggu hingga aplikasi selesai dijalankan

Function WaitUntilFinish(sCommand, WindowsStyle, Wait As Boolean)
   Dim wsh As New IWshRuntimeLibrary.WshShell
   wsh.Run "notepad.exe", 1, True
   'code di bawah akan dijalankan apabila notepad telah ditutup.
   Set wsh = Nothing
End Function

Cara penggunaan fungsi tunggu hingga aplikasi selesai dijalankan

Private Sub Command1_Click()
   Call WaitUntilFinish("notepad.exe", 1, True)
   MsgBox "Kode ini dijalankan apabila notepad di tutup"
End Sub