Option Explicit

Dim posX, posY As Long

Private Sub Form_Load()
  posY = Display.ScaleHeight - 290
End Sub

Private Sub Display_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyRight Then
    posX = posX + 5
    If posX > Me.ScaleWidth - 5 Then posX = -35
  End If

  If KeyCode = vbKeyLeft Then
    posX = posX - 5
    If posX < 0 - 25 Then posX = Me.ScaleWidth - 15
  End If
End Sub

Private Sub Game_Timer()
  Display.PaintPicture bg.Picture, 0, 0

  Display.PaintPicture _
        skaterm.Picture, posX, posY, , , , , , , vbMergePaint
  Display.PaintPicture _
        skater.Picture, posX, posY, , , , , , , vbSrcAnd
End Sub