'== (c) by Valery V Shmeleff  Moscow/Russia  www.oflameron.ru ==
Private Sub Timer2_Timer()
'Обработка нажатия клавиш "стрелка влево" и "стрелка вправо"
            If (GetAsyncKeyState(vbKeyLeft)) Then
                ' Кнопка влево
                Form1.Caption = "Left"
            ElseIf (GetAsyncKeyState(vbKeyRight)) Then
                ' Кнопка вправо
                Form1.Caption = "Right"
            End If
End Sub