Dim th2 As Thread1ng.Thread
th1 = New Thread1ng.Thread(AddressOf setA)
th2 = New Thread1ng.Thread(AddressOf setB)
xxxxx
th1.Start()
th2.start()