多个线程同时开启的简单实例

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

代码：

Imports System.Threading
Public Class MoreThreadForm
    Dim Text1 As String
    Dim Text2 As String
    Dim Thread1, Thread2 As Thread
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Text1 = CInt(TextBox1.Text)
            Text2 = CInt(TextBox2.Text)
            Thread1 = New Thread(New ThreadStart(AddressOf Add))　　' 线程1
            Thread1.Start()
            Thread2 = New Thread(New ThreadStart(AddressOf AddStr))  　' 线程2
            Thread2.Start()
        Catch ex As Exception
            Thread2 = New Thread(New ThreadStart(AddressOf AddStr))
            Thread2.Start()
        End Try
    End Sub
    Sub Add()
        MessageBox.Show(CInt(Me.TextBox1.Text) + CInt(Me.TextBox2.Text))
    End Sub
    Sub AddStr()
        MessageBox.Show("乐博网" & Me.TextBox1.Text & Me.TextBox2.Text)
    End Sub
End Class