LIlle fejl...

Er der ikke en som kan rette den her kode så man skyder horizontalt mod højre.....Det er sikkert noget med det der top og left, men hvad gang at jeg bytter top ud med left så ser det sjovt ud.
Det er i en timer med et interval.


key = GetKeyState(vbKeyReturn)
If key And &H8000 Then
      jegskyder = True
     
     
      picskud(skudNr).Top = figur.Top
      picskud(skudNr).Left = figur.Left
    skudNr = skudNr + 1
    If skudNr >= 11 Then skudNr = 0
End If

If jegskyder = True Then
    For antal = 0 To 11
    picskud(antal).Top = picskud(antal).Top - 600
    If picskud(antal).Top < 0 Then jegskyder = True
    Next antal
End If