VB6如何实现覆盖所有用户会话的单实例应用程序?