程序有错，望高手祥解（附代码）,该如何处理

程序有错，望高手祥解（附代码）
小弟照书上做的多线程的程序有错，不知怎么解决，代码如下：
Public   Class   Form1

        Dim   t2   As   New   System.Threading.Thread(AddressOf   fun2)
        Dim   t1   As   New   System.Threading.Thread(AddressOf   fun1)
        Private   Sub   fun1()
                Dim   i   As   Integer
                For   i   =   1   To   1000
                        Threading.Thread.Sleep(100)
                        ProgressBar1.Value   =   i
                        If   i   Mod   3   =   0   Then
                                Label1.Text   =   "能被3整除的整数是： "   +   i.ToString
                        End   If
                Next
        End   Sub
        Private   Sub   fun2()
                Dim   i   As   Integer
                For   i   =   1   To   1000
                        Threading.Thread.Sleep(100)
                        ProgressBar2.Value   =   i
                        If   i   Mod   4   =   0   Then
                                Label2.Text   =   "能被4整除的整数是： "   +   i.ToString
                        End   If
                Next
        End   Sub

        Private   Sub   Button5_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button5.Click
                Try
                        t1.Start()
                        t2.Start()
                Catch   ex   As   Exception

                End   Try
        End   Sub

        Private   Sub   Button6_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button6.Click
                If   t1.ThreadState   <>   Threading.ThreadState.Stopped   Then
                        If   t1.ThreadState   =   Threading.ThreadState.Suspended   Then