Нужно немного исправить игру - Visual Basic .NET

Формулировка задачи:

Здравствуйте! Я сделала игру, только есть проблемы: очки не начисляются при выстреле в картинку и не исчезает надпись "Вы победили!!!", по замыслу она должна появиться в конце.

Public Class Form1
    Public score = 0
 
    Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
        Label3.Text = score
        PictureBox1.Image = My.Resources._16_3
        PictureBox1.Enabled = False
        Timer1.Interval = 300
        Timer1.Enabled = True
        My.Computer.Audio.Play(My.Resources.wood_destroyed_a2, AudioPlayMode.Background)
        If score = 30 Then
            winner()
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 3000
        PictureBox1.Enabled = True
        Dim generator As New Random
        Dim randomValue As Integer
        Dim randomValueb As Integer
        Timer1.Enabled = True
        randomValue = generator.Next(10, 400)
        randomValueb = generator.Next(10, 500)
        PictureBox1.Location = New Point(randomValue, randomValueb)
        PictureBox1.Image = My.Resources.cartoon_ghost
    End Sub
    Private Sub winner()
        Timer1.Enabled = False
        Label2.Visible = True
        PictureBox1.Visible = False
    End Sub
End Class

Пожалуйста, помогите!!!

Решение задачи: «Нужно немного исправить игру»

textual
                            Листинг программы 
                        

                              'Работает мигающая рожица
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        Static cikl As Byte = 0
        cikl += 1
        PictureBox1.Visible = Not PictureBox1.Visible
        If cikl > 5 Then Timer4.Enabled = False : PictureBox1.Visible = True : cikl = 0
    End Sub
                        