GARDIEN DE BUTS

Public Class Form1
    Dim dx As Integer
    Dim dy As Integer
    Dim score As Integer
    Dim Rnd As New Random
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.Location = New Point _
                 (PictureBox1.Location.X + dx, _
                  PictureBox1.Location.Y + dy)

        If (PictureBox1.Location.Y + 30 > Label1.Location.Y) And (PictureBox1.Location.Y + 30 < Label1.Location.Y + 30) And (PictureBox1.Location.X > Label1.Location.X - 30) And (PictureBox1.Location.X < Label1.Location.X + 40) Then dy = -dy

        If PictureBox1.Top >= Me.Size.Height Then
            Timer1.Stop()
            PictureBox1.Location = New Point(200, 30)
            Label1.Location = New Point(195, 205)
            score += 1
            Me.Text = "But = " & score
        End If

        If PictureBox1.Top < 0 Then
            Timer1.Stop()
            PictureBox1.Location = New Point(200, 30)
            Label1.Location = New Point(195, 205)
        End If
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim x As Integer = 20
        If e.KeyCode = Keys.Left Then
            Label1.Location = New Point(Label1.Location.X - x, 205)
        End If
        If e.KeyCode = Keys.Right Then
            Label1.Location = New Point(Label1.Location.X + x, 205)
        End If
    End Sub

    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Space Then
            PictureBox1.Location = New Point(Rnd.Next(60, 290), 40)
            Timer1.Start() : dx = 0 : dy = 4
        End If
    End Sub
End Class