多线程与对象

可以将要多线程处理的任务写成类中的一个方法，再生成多个对象，分别处理即可。

        Dim pop As New MMail("263.net", "110", "jetz", "**")
        Dim thr As Threading.Thread = New Threading.Thread(AddressOf pop.GetandAnalyse)
        thr.Start()
        Dim pop2 As New MMail("pop.mail.yahoo.com.cn", "110", "jetz", "***")
        Dim thr2 As Threading.Thread = New Threading.Thread(AddressOf pop2.GetandAnalyse)
        thr2.Start()