简单的线程例子Imports System.ThreadingPublic Class Form1 Dim myThread As System.Threading.Thread Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click myThread = New System.Threading.Thread(AddressOf myStartingMethod) myThread.Start() End Sub Private Sub myStartingMethod() Thread.Sleep(2000) MessageBox.Show("MessageBox") End Sub End Class
否则就在这10秒钟里多释放几次控制权,比如循环里执行以下Application.DoEvents
myThread.Start() End Sub Private Sub myStartingMethod() Thread.Sleep(2000)
MessageBox.Show("MessageBox") End Sub
End Class