Вопрос
Как прервать цикл по нажатию клавиши или кнопочки?
Ответ
Для начала в цикле надо вставить команду DoEvents чтобы ему что-то можно было показать.
Dim KP As Boolean
'Код кнопки
Private Sub Form_KeyPressed()
KP = True
End Sub
'Код цикла
Do Until KP
Loop
Из конференции VB
Copyright 
2000-2004 Сообщество Чайников
Контактная информация