I run Player (), it runs prg1 in a new thread, and prg1 runs test (). Everything works without errors, НО на экране ничего не происходит ! А без нового потока - всё работает правильно
НО на экране ничего не происходит ! А без нового потока - всё работает правильно
Class Cls Public Shared Sub Player() Threading.ThreadPool.QueueUserWorkItem(AddressOf prg1) End Sub Private Shared Sub prg1() test() End Sub Public Shared Sub test() Form1.PB.Top = 100 Form1.PB.Left = 100 Form1.PB.Visible = True End Sub End Class