Выполнение нескольких операций одновременно - VB

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

Помогите, пожалуйста, часто с таким встречаюсь, а как устранить проблему, не знаю... Привожу пример программы. На форме располагаются две кнопки Command1 и Command2 и объект Image1. При нажатии Command1 объект начинает двигаться в соответствии с таймером:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim PauseTime, Start, Finish
PauseTime = 0.01
1:
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
Image1.Top = Image1.Top + 20
goto 1:
End Sub

Пользователю предоставляется возможность во время выполнения данного кода нажать кнопку Command2, которая запускает собственный таймер и через 5 секунд выводит сообщение.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command2_Click()
Dim PauseTime, Start, Finish
PauseTime = 5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
MsgBox "Сообщение"
End Sub

Однако, при нажатии второй кнопки выполнение кода Command1 приостанавливается. Я пробовал совмещать оба кода в один, запрещая и разрешая выполнение его части с помощью переменной. Но так неудобно. Можно ли избежать такой приостановки каким-нибудь другим способом?

Решение задачи: «Выполнение нескольких операций одновременно»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
Timer2.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Image1.Top = Image1.Top + 20
End Sub
 
Private Sub Timer2_Timer()
MsgBox "Сообщение"
Timer2.Enabled = False
End Sub