1. Создаем новую форму/проэкт. Добавляем кнопку.
2. Переходим к коду, нажав 2 раза на кнопке.
Импортируем потоки
Код:
Imports System.Threading
3. Добавляем 2 операции (В моем случае это MsgBox, у вас это ваш код).
Код:
Sub operation1()
ProgressBar1.Value += 1
End Sub
Sub operation2()
ProgressBar2.Value += 1
End Sub
4. Переходим к коду запуска создания и запуска потоков.
Код:
Dim operat1 As New Thread(AddressOf operation1) 'Создаем новый поток для операции 1
Dim operat2 As New Thread(AddressOf operation2) 'Создаем новый поток для операции 2
operat1.IsBackground = True 'Делаем поток фоновым
operat2.IsBackground = True 'Делаем поток фоновым
operat1.Start() 'Запускаем поток
operat2.Start() 'Запускаем поток