Question

VB.net 如何设计多线程运行

Private Function MyFunctionHandler(byval Paramas() as string ) as Boolean
//这里是正常的处理函数代码和功能
//其中调用了第三方的插件dll
End Function
Private Function MyMulThreadCaller()
//多线程调用函数
MyFunctionHandler (GlobalParamas)
End Function
Sub Main()
Dim thr As New Thread(AddressOf MyMulThreadCaller)
For Pi as integer=0 to 4 //启用5线程
MulParams =Pi & vbTab & sFile & vbTab & dFile & vbTab & 1 & vbTab & DelN & vbTab & cr & vbTab & cg & vbTab & cb & vbTab & IndexI
GlobalParamas(pi)=MulParams .Split(vbTab)
thr.Start() //启动多线程进程
Application .DoEvents
next

End Sub
===========
上述代码本来是想启用5个线程的，但是实际的运行中，只启用了2个线程，然后就卡死不动了！
请问，如何才能实现多线程呢？

Answer 1

Sub Main()
Dim thr As Thread
For Pi As Integer=0 To 4 //启用5线程
MulParams =Pi & vbTab & sFile & vbTab & dFile & vbTab & 1 & vbTab & DelN & vbTab & cr & vbTab & cg & vbTab & cb & vbTab & IndexI
GlobalParamas(pi)=MulParams .Split(vbTab)
thr=New Thread(AddressOf MyMulThreadCaller)
thr.Start() //启动多线程进程
Application.DoEvents
Next
End Sub

Answer 2

下面是建行ETC办理步骤