Создать форм 2 для GAME OVER

Создать форм 3 для поздравления победителя

Двойной щелчок по форме В разделе Public объявляем переменную с количеством жизней : Public Class Form1 Dim A As Integer

Двойной щелчок по форме, пишем процедуру для события Form1_Load Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load A = 3

Выбираем событие для label1 – MouseEnter ( наведение мыши ) Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter A = A - 1 MsgBox(A,, " осталась жизней ") beep() If A = 0 Then Form3.Show() Me.Hide() End If End Sub

Для всех остальных лейблов то же самое

Private Sub Label3_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.MouseEnter Form2.Show() Me.Hide() End Sub