Mengizinkan Hanya 1 Program Yang Dapat Dijalankan Pada Waktu Yang Sama Pada VB 6.0

   Program yang anda buat bisa jadi akan dijalankan beberapa kali dalam waktu yang bersamaan, sehinggal hal tersebut dapat menyebabkan terjadinya Crash pada program anda dan juga pemborosan memori komputer. Untuk itu anda dapat mencegahnya dengan cara :
   Buka aplikasi yang ingin anda modifikasi dengan program ini dan dikolom View Code bagian Form_Load () anda ketikkan.


Private Sub Form_Load()
If App.PrevInstance = True Then
    Call MsgBox("Program sedang dijalankan!", vbExclamation)
    End
End If
End Sub

   *Pada bagian MsgBox nya silahkan anda rubah dengan pesan anda sendiri sesuai keinginan anda.

   Setelah Source code diatas anda masukkan, silahkan anda coba dengan menjalankan program yang anda buat tadi 2 kali. Maka di komputer anda akan keluar pesan Program sedang dijalankan.

Klik Gambar Untuk Memperbesar

Selamat Mencoba...