VB .Net - Jogo Caça Fantasma

Public Class Form1

    Public score = 0

    Private Sub PictureBox1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PicImagem.MouseClick

        score += 10

        lblPontuacao.Text = score

        'Esta é a imagem mostrada quando clica no monstro

        PicImagem.Enabled = False

        tTimer.Interval = 500

        tTimer.Enabled = True

        'Se a pontuação for 200 você ganha o jogo

        If score = 200 Then

            winner()

        End If

    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles tTimer.Tick

        'Mover o monstro para outro lugar

        tTimer.Interval = 700

        PicImagem.Enabled = True

        Dim generator As New Random

        Dim randomValue As Integer

        Dim RandomValueb As Integer

        tTimer.Enabled = True

        randomValue = generator.Next(10, 1000)

        RandomValueb = generator.Next(10, 500)

        PicImagem.Location = New Point(randomValue, RandomValueb)

    End Sub

    Private Sub winner()

        'Quando chegar a 200pt e vitória garantida

        tTimer.Enabled = True

        PicImagem.Visible = False

        lblPontuacao.Text = 0

        MsgBox("Parabéns você chegou a pontuação máxima.", MsgBoxStyle.Information)

    End Sub

    Private Sub Timer1_Tick_1(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

        Me.lblHoras.Text = TimeOfDay.ToLocalTime

    End Sub

End Class

Pegue o projeto neste link: http://www.mediafire.com/?7huznwtc76u22vc