VB 线程 真的不行

一开始 以为VB的线程 不是像网上人说的那么脆弱。。。哎 现在领略到了。。。VPrivate Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As LongPrivate Sub Command1_Click() Dim threadid1 As Long Call CreateThread(Null, ByVal O&, AddressOf StartConn, VarPtr(0), ByVal 0&, threadid1)End SubSub StartConn() Dim x As String x = Left("dasdasd", 4) '这句都不行 直接崩溃End Sub B 退休吧