by DUKE (1 Submission)
Category: Complete Applications
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(1 Votes)
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
Code Returns
nothing
VBcodersSub Main()
Dim OldTitle$
If App.PrevInstance Then
OldTitle = App.Title
App.Title = "Newapp.exe"
AppActivate OldTitle
End
End If
Form1.Show
End Sub