在vb里面如何创建持久化自定义对象（陈辉老师解决一下）

如何在vb里面创建一个类，使这个类生成的对象可以像Form类生成的实例一样不会一下就执行完毕，而是可以等待事件发生。
我现在想创建一个类，他里面我动态创建了一个Winsock控件，用来接收数据，但是这个对象我是写在Sub Main()中的，一下就销毁了，根本执行不了接受任务，请高手帮忙。 --------------------编程问答-------------------- 在类中加一个Finished属性，然后Main()中就可以进行等待了

sub main()

    dim c as class1

    set c = new class1

    c.DoLongTime

    while not c.finished

        doevents

    wend

end sub

--------------------编程问答-------------------- 我不是很明白你的意思~~
如果你是 因为在main里面直接到最后而导致程序退出的话可以象楼上的朋友那样操作
如果你类里有窗体可以打开模式窗体这样只有窗体里的代码执行完(或者手动退出)这样才回退出程序~ --------------------编程问答-------------------- 可以用SetTimer 

补充：VB ,  基础类