Запретить открытие нескольких экземпляров приложения VB

Question

Я работаю над приложением VB6, которое подключено к базе данных MS Access, поэтому я не хочу позволять пользователю открывать несколько экземпляров моего приложения, поскольку это создаст конфликты и изменит подключенную базу данных.Кроме того, если пользователь пытается открыть другой экземпляр, текущий запущенный экземпляр должен быть сфокусирован.Как я могу достичь этого?Заранее спасибо ..........: -)

Answer 1

Использование App.PrevInstance:

'this code would be in a bas module for start up.'
Private Sub main()
    'Check for previous instance and exit if found.'

    Dim rc As Long

    If App.PrevInstance Then
        rc = MsgBox("Application is already running", vbCritical, App.Title)
        Exit Sub
    Else
        frmMain.Show
    End If

End Sub