[ابو روضة]

قد ينفعك هذا الحل أخى عبد العزيز فلقد نفعنى كثيراً فى أمر التهنيج...

كود :

Imports System.Threading.Thread
Public Class Form1
   

Dim thread1 As System.Threading.Thread
وممكن تضيف ثريد أخر  

 Dim thread2 As System.Threading.Thread

Public Sub darkness1()
     ضع الأمر هنا الذى تريد تنفيذه

   End Sub

وهذا فى الزر

thread1 = New System.Threading.Thread(AddressOf darkness1)
       thread1.Start()

وده فى الفورم لود

CheckForIllegalCrossThreadCalls = False