Using Arrow Keys

I don't know what is the "cycle" but how about this?

cycle = Shapes.AddEllipse(10, 10)
GraphicsWindow.KeyDown = MoveCycle

Sub MoveCycle
  key= GraphicsWindow.LastKey
  delX = 0
  delY = 0
  If (key = "Up") Then
    delY = -12
  ElseIf (key = "Down") Then
    delY = 12
  ElseIf (key = "Left") Then
    delX = -12
  ElseIf (key = "Right") Then
    delX = 12
  EndIf
  X = Shapes.GetLeft(cycle)
  Y = Shapes.GetTop(cycle)
  Shapes.Move(cycle, X + delX, Y + delY)   
EndSub

Nonki Takahashi