Do ko = WaitKey() jb = chr(ko) If jb = "Z" Then Call lo() ElseIf jb = "S" Then Call po() End If Loop Sub lo() KeyDown "Left", 1 Delay 106 KeyUp "Left", 1 KeyDown "Down", 1 Delay 59 KeyUp "Down", 1 End Sub Sub po() KeyDown "Right", 1 Delay 102 KeyUp "Right", 1 KeyDown "Down", 1 Delay 56 KeyUp "Down", 1 End Sub