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)
Return