Public Class Form1

Dim Points As Integer 
Private Sub Five_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Five.Tick
 picBlue.Locati System.Drawing.Point(Rnd() * Me.Width, Rnd() * Me.Height)
End Sub

Private Sub Two_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Two.Tick
 picBlack.Locati System.Drawing.Point(Rnd() * Me.Width, Rnd() * Me.Height)
End Sub

Private Sub Three_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Three.Tick
 picOrange.Locati System.Drawing.Point(Rnd() * Me.Width, Rnd() * Me.Height)
End Sub

Private Sub Four_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Four.Tick
 picYellow.Locati System.Drawing.Point(Rnd() * Me.Width, Rnd() * Me.Height)
End Sub

Private Sub One_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles One.Tick
 picRed.Locati System.Drawing.Point(Rnd() * Me.Width, Rnd() * Me.Height)
End Sub

Private Sub picRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picRed.Click
lblScore.Text = lblScore.Text + 1
End Sub

Private Sub picBlue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picBlue.Click
lblScore.Text = lblScore.Text + 10
End Sub

Private Sub picOrange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picOrange.Click
lblScore.Text = lblScore.Text + 100
End Sub

Private Sub picBlack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picBlack.Click
lblScore.Text = lblScore.Text + 1000
End Sub

Private Sub picYellow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picYellow.Click
lblScore.Text = lblScore.Text + 10000
End Sub
End Class