Et spiller problem, jeg kan ikke ramme hver gang

Som i kan se udfra koden bevæger laseren sig med 10 og asteroiden med 5, det vil sig at jeg skal være heldig hvis jeg rammer, håber der er nogle der kan hjælpe.If ShootLaser = True Then
   
    j = BitBlt(Me.hDC, LaserX + 55, LaserY, 150, 112, LaserMask.hDC, 0, 0, vbSrcAnd)
    j = BitBlt(Me.hDC, LaserX + 55, LaserY, 150, 112, Laser.hDC, 0, 0, vbSrcPaint)
    LaserY = LaserY + 10
    If LaserY >= Me.ScaleHeight Then
        ShootLaser = False
    End If
End If

' ASTEROID
' =================================================
RockYPos = RockYPos - 5
j = BitBlt(Me.hDC, RockXPos, RockYPos, 150, 112, AsteroidMask(RockNum).hDC, 0, 0, vbSrcAnd)
j = BitBlt(Me.hDC, RockXPos, RockYPos, 150, 112, Asteroid(RockNum).hDC, 0, 0, vbSrcPaint)
  '((RockYPos = LaserY - 5) And (RockYPos = LaserY + 5)) And _

If ((RockXPos < LaserX + 55) And (RockYPos = LaserY)) And ShootLaser = True Then

poing = poing + 1

Form1.Caption = "Scoor :" & poing
ShootLaser = False

End If

MVH.

      KSR