|
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
|
|