مشکل در اجرای thread

[232323مهدی 0]

سلام و ممنون از سایت خوبتون من یک برنامه ای که نمونه بود برای آموزش استفاده از تردینگ دانلود کردم و اجرا می شه نصب می شه اما به محظ اینکه دستور استارت ترد شروع می شه تابع اند ترد اجرا می کنه   می کنم کمک کنید موهای سرم سفید شد 

وقتی برنامه اجرا می شه و روی دکمه استارت کلید کنم 

ترد اجرا می شه

Sub btnStart_Click
    Dim args(0) As Object
    EditText1.Text = 0
    EditText2.Text = 0
    Lock1.Initialize(True)
    Lock2.Initialize(True)    
    Thread1.Name = "B4A Thread 1"
    Thread2.Name = "B4A Thread 2"
    Thread1.Start(Null,"ThreadSub1", args)        
    Thread2.Start(Null, "ThreadSub2", args)        
End Sub

بعد بلافاصله تابع 

Sub Thread1_Ended(fail As Boolean, error As String) 'An error or Exception has occurred in the Thread
    Msgbox(error, "Thread1 Ended")
End Sub

و تابع

Sub Thread2_Ended(fail As Boolean, error As String) 'An error or Exception has occurred in the Thread
    Msgbox(error, "Thread2 Ended")
End Sub

اجر می شه نمی دونم چر ا من این برنامه ساده رو از اینترنت دانلود کردم خودم ننوشتم و لی هرکار بکنم اجر ا نمی شه 

 نمی دونم چرا ترد اجرا نمی شه مطمانم اگر برنامرو توی کامپیوتر دیگه اجرا کنید مشکلی نداره چرا آخه 

  با تشکر فراراوان