Mencegah Aplikasi Dijalankan Dua Kali

Di bawah ini merupakan cara termudah untuk mencegah sebuah aplikasi dijalankan dua kali (double instance). Bagaimana implementasinya dalam Visual Basic 6.0? Simaklah kodenya di bawah ini.

Option Explicit  
  
Private Sub ActivatePrevInstance()  
    AppActivate App.Title  
    SendKeys "+", True  
    End  
End Sub  

Contoh penggunaan procedure di atas:

Private Sub Form_Load()  
    If App.PrevInstance Then ActivatePrevInstance  
End Sub