Private blnFlag As Boolean
Private Sub Поле_Exit(Cancel As Integer)
Cancel = blnFlag
End Sub
Private Sub Поле_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37, 38, 39, 40
blnFlag = True
Case Else
blnFlag = False
End Select
End Sub
Private Sub Поле_KeyUp(KeyCode As Integer, Shift As Integer)
blnFlag = False
End Sub
|