COMO FAZER NAVE ATIRAR?

C4RL05 08/10/2011 14:40:03
#386304

Boa Tarde !!!
Gostaria de Saber como faço pra fazer uma nave dar um tiro corretamente:

até agora eu já consegui fazer ela dar um tiro sóq que o tiro para na parte de cima do form e não some....

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox2.Visible = False
End Sub

Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub

Private Sub Login_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim Move, Move2 As Double
Select Case e.KeyCode
Case Keys.Up
Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X, Me.PictureBox1.Location.Y - 10)
Case Keys.Down
Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X, Me.PictureBox1.Location.Y + 10)
Case Keys.Left
Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X - 10, Me.PictureBox1.Location.Y)
Case Keys.Right
Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X + 10, Me.PictureBox1.Location.Y)
Case Keys.Space
Me.PictureBox2.Location = New Point(Me.PictureBox1.Location.X + 22, Me.PictureBox1.Location.Y - 22)
PictureBox2.Visible = True
For Move = 0 To Me.Top
PictureBox2.Top = PictureBox2.Top - 1
If Move >= Me.Top Then
For Move2 = PictureBox2.Top To Me.Top
PictureBox2.Top = PictureBox2.Top - PictureBox2.Top
Next
End If
If Move2 = Me.Top Then
PictureBox2.Visible = False
End If
Next
End Select

End Sub

End Class