Avoid a plurality of instances to run simultaneously

Private sub flow_load ()

If app.previnstance = true kil

Msgbox "This program has started"

Unload me

EXIT SUB

END IF

End Sub