CheckSoftware

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)