Visual Basic > Windows and Controls sample source codes

Visual Basic Code > Is this application already started

Is this application already started

Public sub CheckSoftware(x as Form)
    
    dim SaveTitle$

    If App.PrevInstance Then
        SaveTitle$ = App.Title
        MsgBox "This program is already in the air...."
        App.Title = ""
        x.Caption = ""
        AppActivate SaveTitle$
        SendKeys "%{ENTER}", True
        End
    end If

End Sub

'use as in the first form_load event
Call CheckSoftware(form1)