PublicReturnsub
CheckSoftware(xas
Form)dim
SaveTitle$ If App.PrevInstance Then SaveTitle$ = App.Title MsgBox "Thisprogram
is already in the air...." App.Title = "" x.Caption = "" AppActivate SaveTitle$ SendKeys "%{ENTER}", True Endend
If End Sub 'useas
in the first form_load event Call CheckSoftware(form1)