Не корректно работает вывод в Text.box и опрос клавиш - VB

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

Пишу программку для 3D сканера (последний раз писал на VB лет десять назад). Сама программа работает, а вод вывод данных на экран ведет себя непонятно. На форме текстовое окно (в нем должен отображаться номер текущей точки сканирования), а вместо этого отображаются только начальный и конечный. Промежуточные не показываются. Вот грубо фрагмент кода: По нажатию кнопки вызывается подпрограмма чтения данных сканирования, головка перемещается в следующую точку сканирования, её номер выводится на экран. Пробовал с циклом, та-же лажа. Выводятся первая и последняя точки.

Private Sub Command1_Click() 
M:
Call READDAT
DY = DY - 1:
Pos_Y.Text=DY
If DY > 0 Then GoTo M
End Sub

И еще вопросик по слежению за клавишами Вот кусочек кода:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
TTT.Text = KeyCode
If KeyCode = 39 Then os = 1: Call VP
If KeyCode = 37 Then os = 1: Call NZ
If KeyCode = 38 Then os = 2: Call VV
If KeyCode = 40 Then os = 2: Call VN
End Sub

Работать работает, но двигатели работают рывками. При нажатии на клавишу управления курсором сначала двигатели дергаются однократно, потом включается автоповтор клавиатуры и движение становится равномерным, но из-за низкой скорости автоповтора довольно медленное. Каким образом можно опрашивать клавиатуру, чтобы подпрограмма движения выполнялась только пр нажатой клавише?

Решение задачи: «Не корректно работает вывод в Text.box и опрос клавиш»

textual
                            Листинг программы 
                        

                            Dim F As Boolean
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    TTT.Text = KeyCode
    F = True
    Do While F
       Select Case KeyCode
              Case 39: os = 1: Call vp
              Case 37: os = 1: Call nz
              Case 38: os = 2: Call vv
              Case 40: os = 2: Call vn
       End Select
       DoEvents
    Loop
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    F = False
End Sub
                        