• Home
 · 
• Complete Applications
 · 
• Only one Instance

Only one Instance

If the programm runs, you can't start it again!

Inputs
base module(insert the code) change in project/options "form1" into "Sub Main"

Assumes
nothing

Returns
nothing

Rate Only one Instance

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Sub Main()
Dim OldTitle$
  If App.PrevInstance Then
    OldTitle = App.Title
    App.Title = "Newapp.exe"
    AppActivate OldTitle
    End
  End If
  Form1.Show
End Sub