VB6 Code - Mencegah Aplikasi Dijalankan Dua Kali

Di bawah ini merupakan cara termudah untuk mencegah sebuah aplikasi dijalankan dua kali (double instance) menggunakan VB6. 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 VB6 di atas:

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