Foto's afschieten?

[Timminator]

Hallo.

Ik zit met een probleemje...
Het is de bedoeling dat er vanaf een bepaald punt op m'n Form om de 3 sec een 'Kogeltje' moet 'afgevuurd' worden.
ik heb al een stukje code dat werkt maar dat is maar voor 1 zo'n kogel ;(
nog 1 ding. Als ik op de spatiebalk druk dan vertrekt dat ene kogeltje maar vanaf de rechter onderhoek van de picturebox van de raket, hoe zorg je ervoor dat de kogel van in het midden bovenaan vertrekt??
weet iemand hoe je dit doet?

Dit is de code die ik heb:

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Left Then
            picRaket.Location = New Point(picRaket.Location.X - 10, picRaket.Location.Y)
            picKogel.Location = New Point(picKogel.Location.X - 10, picKogel.Location.Y)
        End If
        If e.KeyCode = Keys.Right Then
            picRaket.Location = New Point(picRaket.Location.X + 10, picRaket.Location.Y)
            picKogel.Location = New Point(picKogel.Location.X + 10, picKogel.Location.Y)
        End If
        If e.KeyCode = Keys.Space Then
            picKogel.Visible = True
            tmrKogel.Start()
            picKogel.Location = New Point((picRaket.Location.X + 25), picRaket.Location.Y + 25)
        End If
    End Sub
    Private Sub tmrKogel_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrKogel.Tick
        picKogel.Top = picKogel.Top - 15

    End Sub

 

[Tha Devil]

Beste Tim,

Het is niet nodig tweemaal een vraag over hetzelfde onderwerp te stellen.

Gelieve in je vorige vraag verder gaan: http://www.helpmij.nl/forum/showthread.php/741317-Hoe-doe-ik-dit?p=4755001#post4755001

Met vriendelijke groet,

Stefan (Tha Devil)
Moderator Helpmij.nl