Многопоточность в VB6: возможно ли

Формулировка задачи:

Я мало грамотен в этих вещах (чуть-чуть читал в нете), но хотелось бы немного уточнить. Многопоточность - улучшает продуктивность проги!!! Делает возможным работать процедурам одновременно (параллельно)!!! Я правильно понимаю??? Не подскажите с чего начать, наметки какие-нибудь??? Вообще я читал мельком , что в VB6 это тяжело реализуется?!

Решение задачи: «Многопоточность в VB6: возможно ли»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim Stope As Boolean
Private Sub Command1_Click()
Dim i As Long
Stope = False
For i = 1 To 9000000
DoEvents
Caption = "Посчитано - " & i
If Stope Then Exit Sub
Next i
End Sub
 
Private Sub Command2_Click()
Stope = True
MsgBox "Остановлено пользователем"
End Sub
 
Private Sub Form_Load()
Command1.Caption = "Старт"
Command2.Caption = "Стоп"
End Sub