Розроблення ігрової навчальної програми "Пізнавальні ігри: пори року, фрукти й овочі, фруктове асорті, хто що їсть, транспорт" для дітей молодшого віку

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

Private Sub Трансорт_игра_7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Public Class Трансорт_игра_8

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

Транспорт_игра1.wmp.URL = filename3

MessageBox.Show("Правильно")

p_o += 1

k_o += 1

Me.Hide()

Трансорт_игра_9.Show()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

Private Sub Трансорт_игра_8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Public Class Трансорт_игра_9

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Транспорт_игра1.Show()

Me.Hide()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Транспорт.AxWindowsMediaPlayer1.close()

Me.Hide()

Form1.Show()

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Трансорт_игра_9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Public Class Кто_что_ест

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Кто_что_ест2.Show()

Me.Hide()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form1.Show()

Me.Hide()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Игра_Кто_что_ест.Show()

Me.Hide()

End Sub

Private Sub Кто_что_ест_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim filenametr As String = Application.StartupPath + "\" + "фонзверьки.mp3"

AxWindowsMediaPlayer1.URL = filenametr

End Sub

End Class

Public Class Кто_что_ест2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Кто_что_ест.Show()

Me.Hide()

End Sub

Private Sub Кто_что_ест2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Public Class Игра_Кто_что_ест

Public flag As Boolean

Public flag2 As Boolean

Public flag3 As Boolean

Public flag4 As Boolean

Public flag5 As Boolean

Private Sub PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMove

If PictureBox11.Location.X > 36 And PictureBox11.Location.X < 156 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox10.Visible = False

PictureBox11.Location = New System.Drawing.Point(36, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox11.Enabled = False

PictureBox11.BorderStyle = BorderStyle.None

flag = False

ElseIf PictureBox11.Location.X > 458 And PictureBox11.Location.X < 580 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox11.Location.X > 178 And PictureBox11.Location.X < 300 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox11.Location.X > 323 And PictureBox11.Location.X < 439 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox11.Location.X > 599 And PictureBox11.Location.X < 730 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

End If

End Sub

Private Sub PictureBox11_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseUp

sender.cursor() = Cursors.Default

PictureBox11.BorderStyle = BorderStyle.None

flag = False

End Sub

Private Sub PictureBox11_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown

sender.cursor() = Cursors.Hand

PictureBox11.BorderStyle = BorderStyle.Fixed3D

flag = True

PictureBox11.BringToFront()

End Sub

Private Sub PictureBox12_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown

sender.cursor() = Cursors.Hand

PictureBox12.BorderStyle = BorderStyle.Fixed3D

flag2 = True

PictureBox12.BringToFront()

End Sub

Private Sub PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMove

If PictureBox12.Location.X > 458 And PictureBox12.Location.X < 580 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox6.Visible = False

PictureBox12.Location = New System.Drawing.Point(458, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox12.Enabled = False

PictureBox12.BorderStyle = BorderStyle.None

flag2 = False

ElseIf PictureBox12.Location.X > 36 And PictureBox12.Location.X < 156 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox12.Location.X > 178 And PictureBox12.Location.X < 300 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox12.Location.X > 323 And PictureBox12.Location.X < 439 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox12.Location.X > 599 And PictureBox12.Location.X < 730 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

End If

End Sub

Private Sub PictureBox12_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseUp

sender.cursor() = Cursors.Default

PictureBox12.BorderStyle = BorderStyle.None

flag2 = False

End Sub

Private Sub PictureBox13_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseDown

sender.cursor() = Cursors.Hand

PictureBox13.BorderStyle = BorderStyle.Fixed3D

flag3 = True

PictureBox13.BringToFront()

End Sub

Private Sub PictureBox13_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseMove

If PictureBox13.Location.X > 178 And PictureBox13.Location.X < 300 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox9.Visible = False

PictureBox13.Location = New System.Drawing.Point(178, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox13.Enabled = False

PictureBox13.BorderStyle = BorderStyle.None

flag3 = False

ElseIf PictureBox13.Location.X > 36 And PictureBox13.Location.X < 156 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox13.Location.X > 323 And PictureBox13.Location.X < 439 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox13.Location.X > 458 And PictureBox13.Location.X < 580 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox13.Location.X > 599 And PictureBox13.Location.X < 730 And PictureBox13.Location.Y > 140 And PictureBox13.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

End If

End Sub

Private Sub PictureBox13_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseUp

sender.cursor() = Cursors.Default

PictureBox13.BorderStyle = BorderStyle.None

flag3 = False

PictureBox13.BringToFront()

End Sub

Private Sub PictureBox14_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseUp

sender.cursor() = Cursors.Default

PictureBox14.BorderStyle = BorderStyle.None

flag4 = False

End Sub

Private Sub PictureBox14_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseDown

sender.cursor() = Cursors.Hand

PictureBox14.BorderStyle = BorderStyle.Fixed3D

flag4 = True

PictureBox14.BringToFront()

End Sub

Private Sub PictureBox14_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseMove

If PictureBox14.Location.X > 323 And PictureBox14.Location.X < 439 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox8.Visible = False

PictureBox14.Location = New System.Drawing.Point(323, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox14.Enabled = False

PictureBox14.BorderStyle = BorderStyle.None

flag4 = False

ElseIf PictureBox14.Location.X > 36 And PictureBox14.Location.X < 156 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox14.Location.X > 178 And PictureBox14.Location.X < 300 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox14.Location.X > 458 And PictureBox14.Location.X < 580 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox14.Location.X > 599 And PictureBox14.Location.X < 730 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

End If

End Sub

Private Sub PictureBox15_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox15.MouseDown

sender.cursor() = Cursors.Hand

PictureBox15.BorderStyle = BorderStyle.Fixed3D

flag5 = True

PictureBox15.BringToFront()

End Sub

Private Sub PictureBox15_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox15.MouseUp

sender.cursor() = Cursors.Default

PictureBox15.BorderStyle = BorderStyle.None

flag5 = False

End Sub

Private Sub Игра_Кто_что_ест_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If flag = True Then

PictureBox11.Location = New System.Drawing.Point(e.Location.X - PictureBox11.Width / 2, e.Location.Y - PictureBox11.Height / 2)

End If

If flag2 = True Then

PictureBox12.Location = New System.Drawing.Point(e.Location.X - PictureBox12.Width / 2, e.Location.Y - PictureBox12.Height / 2)

End If

If flag3 = True Then

PictureBox13.Location = New System.Drawing.Point(e.Location.X - PictureBox13.Width / 2, e.Location.Y - PictureBox13.Height / 2)

End If

If flag4 = True Then

PictureBox14.Location = New System.Drawing.Point(e.Location.X - PictureBox14.Width / 2, e.Location.Y - PictureBox14.Height / 2)

End If

If flag5 = True Then

PictureBox15.Location = New System.Drawing.Point(e.Location.X - PictureBox15.Width / 2, e.Location.Y - PictureBox15.Height / 2)

End If

If PictureBox11.Location = New System.Drawing.Point(36, 150) And PictureBox15.Location = New System.Drawing.Point(599, 150) And

PictureBox14.Location = New System.Drawing.Point(323, 150) And PictureBox13.Location = New System.Drawing.Point(178, 150) And

PictureBox12.Location = New System.Drawing.Point(458, 150) Then

Button2.Visible = True

Label3.Visible = True

End If

End Sub

Private Sub PictureBox15_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox15.MouseMove

If PictureBox15.Location.X > 599 And PictureBox15.Location.X < 730 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox7.Visible = False

PictureBox15.Location = New System.Drawing.Point(599, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox15.Enabled = False

PictureBox15.BorderStyle = BorderStyle.None

flag5 = False

ElseIf PictureBox15.Location.X > 458 And PictureBox15.Location.X < 580 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox15.Location.X > 178 And PictureBox15.Location.X < 300 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox15.Location.X > 323 And PictureBox15.Location.X < 439 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox15.Location.X > 36 And PictureBox15.Location.X < 156 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag5 = True

End If

End Sub

Private Sub Игра_Кто_что_ест_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If flagok = True Then

Me.Controls.Clear()

InitializeComponent()

End If

End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

Label2.Visible = False

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

Label1.Visible = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Refresh()

Form1.Show()

Me.Hide()

Кто_что_ест.AxWindowsMediaPlayer1.close()

End Sub

End Class

Public Class Фруктовое_Ассорти

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Фруктовое_Ассорти2.Show()

Me.Hide()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form1.Show()

Me.Hide()

AxWindowsMediaPlayer1.close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

фрукты_игра.show()

Me.Hide()

Фрукты_игра.Update()

Фрукты_игра2.Update()

End Sub

Private Sub Фруктовое_Ассорти_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim filaname As String = Application.StartupPath + "\" + "fonfru.mp3"

AxWindowsMediaPlayer1.URL = filaname

End Sub

End Class

Public Class Фруктовое_Ассорти2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Фруктовое_Ассорти.Show()

Me.Hide()

End Sub

Private Sub Фруктовое_Ассорти2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Public Class Фрукты_игра

Public flag As Boolean

Public flag2 As Boolean

Public flag3 As Boolean

Public flag4 As Boolean

Private Sub Фрукты_игра_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If flag = True Then

PictureBox2.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y - PictureBox2.Height / 2)

PictureBox2.BringToFront()

End If

If flag2 = True Then

PictureBox6.Location = New System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y - PictureBox6.Height / 2)

PictureBox6.BringToFront()

End If

If flag3 = True Then

PictureBox7.Location = New System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y - PictureBox7.Height / 2)

PictureBox7.BringToFront()

End If

If flag4 = True Then

PictureBox8.Location = New System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y - PictureBox8.Height / 2)

PictureBox8.BringToFront()

End If

If PictureBox2.Location = New System.Drawing.Point(524, 439) And PictureBox6.Location = New System.Drawing.Point(151, 436) And

PictureBox7.Location = New System.Drawing.Point(646, 143) And PictureBox8.Location = New System.Drawing.Point(15, 149) Then

Button1.Visible = True

Button2.Visible = True

End If

End Sub

Private Sub Фрукты_игра_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If flagok = True Then

Me.Controls.Clear()

InitializeComponent()

End If

End Sub

Private Sub PictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown

sender.cursor() = Cursors.Hand

PictureBox2.BorderStyle = BorderStyle.Fixed3D

flag = True

End Sub

Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove

If PictureBox2.Location.X > 520 And PictureBox2.Location.X < 750 And PictureBox2.Location.Y > 437 And PictureBox2.Location.Y < 552 Then

p_o += 1

k_o += 1

PictureBox2.Location = New System.Drawing.Point(524, 439)

Label5.Visible = True

Label1.Visible = True

Timer1.Enabled = True

PictureBox2.Enabled = False

PictureBox2.BorderStyle = BorderStyle.None

flag = False

ElseIf PictureBox2.Location.X > 11 And PictureBox2.Location.X < 146 And PictureBox2.Location.Y > 13 And PictureBox2.Location.Y < 263 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox2.Location.X > 17 And PictureBox2.Location.X < 277 And PictureBox2.Location.Y > 433 And PictureBox2.Location.Y < 550 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox2.Location.X > 643 And PictureBox2.Location.X < 765 And PictureBox2.Location.Y > 14 And PictureBox2.Location.Y < 253 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

End If

End Sub

Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

sender.cursor() = Cursors.Default

PictureBox2.BorderStyle = BorderStyle.None

flag = False

End Sub

Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove

If PictureBox6.Location.X > 17 And PictureBox6.Location.X < 277 And PictureBox6.Location.Y > 433 And PictureBox6.Location.Y < 550 Then

p_o += 1

k_o += 1

PictureBox6.Location = New System.Drawing.Point(151, 436)

Label1.Visible = True

Label6.Visible = True

Timer1.Enabled = True

PictureBox6.Enabled = False

PictureBox6.BorderStyle = BorderStyle.None

flag2 = False

ElseIf PictureBox6.Location.X > 11 And PictureBox6.Location.X < 146 And PictureBox6.Location.Y > 13 And PictureBox6.Location.Y < 263 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox6.Location.X > 520 And PictureBox6.Location.X < 750 And PictureBox6.Location.Y > 437 And PictureBox6.Location.Y < 552 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox6.Location.X > 643 And PictureBox6.Location.X < 765 And PictureBox6.Location.Y > 14 And PictureBox6.Location.Y < 253 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag2 = True

End If

End Sub

Private Sub PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp

sender.cursor() = Cursors.Default

PictureBox6.BorderStyle = BorderStyle.None

flag2 = False

End Sub

Private Sub PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown

sender.cursor() = Cursors.Hand

PictureBox6.BorderStyle = BorderStyle.Fixed3D

flag2 = True

End Sub

Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove

If PictureBox7.Location.X > 643 And PictureBox7.Location.X < 765 And PictureBox7.Location.Y > 14 And PictureBox7.Location.Y < 253 Then

p_o += 1

k_o += 1

PictureBox7.Location = New System.Drawing.Point(646, 143)

Label1.Visible = True

Label4.Visible = True

Timer1.Enabled = True

PictureBox7.Enabled = False

PictureBox7.BorderStyle = BorderStyle.None

flag3 = False

ElseIf PictureBox7.Location.X > 11 And PictureBox7.Location.X < 146 And PictureBox7.Location.Y > 13 And PictureBox7.Location.Y < 263 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox7.Location.X > 520 And PictureBox7.Location.X < 750 And PictureBox7.Location.Y > 437 And PictureBox7.Location.Y < 552 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox7.Location.X > 17 And PictureBox7.Location.X < 277 And PictureBox7.Location.Y > 433 And PictureBox7.Location.Y < 550 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag3 = True

End If

End Sub

Private Sub PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp

sender.cursor() = Cursors.Default

PictureBox7.BorderStyle = BorderStyle.None

flag3 = False

End Sub

Private Sub PictureBox7_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown

sender.cursor() = Cursors.Hand

PictureBox7.BorderStyle = BorderStyle.Fixed3D

flag3 = True

End Sub

Private Sub PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown

sender.cursor() = Cursors.Hand

PictureBox8.BorderStyle = BorderStyle.Fixed3D

flag4 = True

End Sub

Private Sub PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp

sender.cursor() = Cursors.Default

PictureBox8.BorderStyle = BorderStyle.None

flag4 = False

End Sub

Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove

If PictureBox8.Location.X > 11 And PictureBox8.Location.X < 146 And PictureBox8.Location.Y > 13 And PictureBox8.Location.Y < 263 Then

p_o += 1

k_o += 1

PictureBox8.Location = New System.Drawing.Point(15, 149)

Label1.Visible = True

Label3.Visible = True

Timer1.Enabled = True

PictureBox8.Enabled = False

PictureBox8.BorderStyle = BorderStyle.None

flag4 = False

ElseIf PictureBox8.Location.X > 643 And PictureBox8.Location.X < 765 And PictureBox8.Location.Y > 14 And PictureBox8.Location.Y < 253 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox8.Location.X > 520 And PictureBox8.Location.X < 750 And PictureBox8.Location.Y > 437 And PictureBox8.Location.Y < 552 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox8.Location.X > 17 And PictureBox8.Location.X < 277 And PictureBox8.Location.Y > 433 And PictureBox8.Location.Y < 550 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag4 = True

End If

End Sub

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

Label1.Visible = False

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

label2.visible = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Фрукты_игра2.Show()

Me.Hide()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Фруктовое_Ассорти.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

End Class

Public Class Фрукты_игра2

Public flag As Boolean

Public flag2 As Boolean

Public flag3 As Boolean

Public flag4 As Boolean

Public flag5 As Boolean

Private Sub PictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown

sender.cursor() = Cursors.Hand

PictureBox2.BorderStyle = BorderStyle.Fixed3D

flag = True

End Sub

Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove

If PictureBox2.Location.X > 213 And PictureBox2.Location.X < 483 And PictureBox2.Location.Y > 9 And PictureBox2.Location.Y < 128 Then

p_o += 1

k_o += 1

PictureBox2.Location = New System.Drawing.Point(367, 12)

Label1.Visible = True

Label8.Visible = True

Timer1.Enabled = True

PictureBox2.Enabled = False

PictureBox2.BorderStyle = BorderStyle.None

flag = False

ElseIf PictureBox2.Location.X > 9 And PictureBox2.Location.X < 119 And PictureBox2.Location.Y > 9 And PictureBox2.Location.Y < 228 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox2.Location.X > 595 And PictureBox2.Location.X < 727 And PictureBox2.Location.Y > 10 And PictureBox2.Location.Y < 251 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox2.Location.X > 479 And PictureBox2.Location.X < 730 And PictureBox2.Location.Y > 409 And PictureBox2.Location.Y < 540 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox2.Location.X > 22 And PictureBox2.Location.X < 280 And PictureBox2.Location.Y > 423 And PictureBox2.Location.Y < 543 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

End If

End Sub

Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

sender.cursor() = Cursors.Default

PictureBox2.BorderStyle = BorderStyle.None

flag = False

End Sub

Private Sub PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp

sender.cursor() = Cursors.Default

PictureBox6.BorderStyle = BorderStyle.None

flag2 = False

End Sub

Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove

If PictureBox6.Location.X > 9 And PictureBox6.Location.X < 119 And PictureBox6.Location.Y > 9 And PictureBox6.Location.Y < 228 Then

p_o += 1

k_o += 1

PictureBox6.Location = New System.Drawing.Point(12, 117)

Label1.Visible = True

Label4.Visible = True

Timer1.Enabled = True

PictureBox6.Enabled = False

PictureBox6.BorderStyle = BorderStyle.None

flag2 = False

ElseIf PictureBox6.Location.X > 213 And PictureBox6.Location.X < 483 And PictureBox6.Location.Y > 9 And PictureBox6.Location.Y < 128 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox6.Location.X > 595 And PictureBox6.Location.X < 727 And PictureBox6.Location.Y > 10 And PictureBox6.Location.Y < 251 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox6.Location.X > 479 And PictureBox6.Location.X < 730 And PictureBox6.Location.Y > 409 And PictureBox6.Location.Y < 540 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox6.Location.X > 22 And PictureBox6.Location.X < 280 And PictureBox6.Location.Y > 423 And PictureBox6.Location.Y < 543 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag2 = True

End If

End Sub

Private Sub PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown

sender.cursor() = Cursors.Hand

PictureBox6.BorderStyle = BorderStyle.Fixed3D

flag2 = True

End Sub

Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove

If PictureBox7.Location.X > 22 And PictureBox7.Location.X < 280 And PictureBox7.Location.Y > 423 And PictureBox7.Location.Y < 543 Then

p_o += 1

k_o += 1

PictureBox7.Location = New System.Drawing.Point(147, 427)

Label1.Visible = True

Label6.Visible = True

Timer1.Enabled = True

PictureBox7.Enabled = False

PictureBox7.BorderStyle = BorderStyle.None

flag3 = False

ElseIf PictureBox7.Location.X > 479 And PictureBox7.Location.X < 730 And PictureBox7.Location.Y > 409 And PictureBox7.Location.Y < 540 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox7.Location.X > 595 And PictureBox7.Location.X < 727 And PictureBox7.Location.Y > 10 And PictureBox7.Location.Y < 251 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox7.Location.X > 213 And PictureBox7.Location.X < 483 And PictureBox7.Location.Y > 9 And PictureBox7.Location.Y < 128 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox7.Location.X > 9 And PictureBox7.Location.X < 119 And PictureBox7.Location.Y > 9 And PictureBox7.Location.Y < 228 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag3 = True

End If

End Sub

Private Sub PictureBox7_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown

sender.cursor() = Cursors.Hand

PictureBox7.BorderStyle = BorderStyle.Fixed3D

flag3 = True

End Sub

Private Sub PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp

sender.cursor() = Cursors.Default

PictureBox7.BorderStyle = BorderStyle.None

flag3 = False

End Sub

Private Sub PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp

sender.cursor() = Cursors.Default

PictureBox8.BorderStyle = BorderStyle.None

flag4 = False

End Sub

Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove

If PictureBox8.Location.X > 479 And PictureBox8.Location.X < 730 And PictureBox8.Location.Y > 409 And PictureBox8.Location.Y < 540 Then

p_o += 1

k_o += 1

PictureBox8.Location = New System.Drawing.Point(483, 412)

Label1.Visible = True

Label7.Visible = True

Timer1.Enabled = True

PictureBox8.Enabled = False

PictureBox8.BorderStyle = BorderStyle.None

flag4 = False

ElseIf PictureBox8.Location.X > 22 And PictureBox8.Location.X < 280 And PictureBox8.Location.Y > 423 And PictureBox8.Location.Y < 543 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox8.Location.X > 595 And PictureBox8.Location.X < 727 And PictureBox8.Location.Y > 10 And PictureBox8.Location.Y < 251 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox8.Location.X > 213 And PictureBox8.Location.X < 483 And PictureBox8.Location.Y > 9 And PictureBox8.Location.Y < 128 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox8.Location.X > 9 And PictureBox8.Location.X < 119 And PictureBox8.Location.Y > 9 And PictureBox8.Location.Y < 228 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag4 = True

End If

End Sub

Private Sub PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown

sender.cursor() = Cursors.Hand

PictureBox8.BorderStyle = BorderStyle.Fixed3D

flag4 = True

End Sub

Private Sub PictureBox10_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown

sender.cursor() = Cursors.Hand

PictureBox10.BorderStyle = BorderStyle.Fixed3D

flag5 = True

End Sub

Private Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove

If PictureBox10.Location.X > 595 And PictureBox10.Location.X < 727 And PictureBox10.Location.Y > 10 And PictureBox10.Location.Y < 251 Then

p_o += 1

k_o += 1

PictureBox10.Location = New System.Drawing.Point(599, 126)

Label1.Visible = True

Label5.Visible = True

Timer1.Enabled = True

PictureBox10.Enabled = False

PictureBox10.BorderStyle = BorderStyle.None

flag5 = False

ElseIf PictureBox10.Location.X > 22 And PictureBox10.Location.X < 280 And PictureBox10.Location.Y > 423 And PictureBox10.Location.Y < 543 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox10.Location.X > 479 And PictureBox10.Location.X < 730 And PictureBox10.Location.Y > 409 And PictureBox10.Location.Y < 540 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox10.Location.X > 213 And PictureBox10.Location.X < 483 And PictureBox10.Location.Y > 9 And PictureBox10.Location.Y < 128 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox10.Location.X > 9 And PictureBox10.Location.X < 119 And PictureBox10.Location.Y > 9 And PictureBox10.Location.Y < 228 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag5 = True

End If

End Sub

Private Sub PictureBox10_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseUp

sender.cursor() = Cursors.Default

PictureBox10.BorderStyle = BorderStyle.None

flag5 = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

Me.Update()

Form1.Show()

Фруктовое_Ассорти.AxWindowsMediaPlayer1.close()

End Sub

Private Sub Фрукты_игра2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If flag = True Then

PictureBox2.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y - PictureBox2.Height / 2)

PictureBox2.BringToFront()

End If

If flag2 = True Then

PictureBox6.Location = New System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y - PictureBox6.Height / 2)

PictureBox6.BringToFront()

End If

If flag3 = True Then

PictureBox7.Location = New System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y - PictureBox7.Height / 2)

PictureBox7.BringToFront()

End If

If flag4 = True Then

PictureBox8.Location = New System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y - PictureBox8.Height / 2)

PictureBox8.BringToFront()

End If

If flag5 = True Then

PictureBox10.Location = New System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y - PictureBox10.Height / 2)

PictureBox8.BringToFront()

End If

If PictureBox2.Location = New System.Drawing.Point(367, 12) And PictureBox6.Location = New System.Drawing.Point(12, 117) And

PictureBox7.Location = New System.Drawing.Point(147, 427) And PictureBox8.Location = New System.Drawing.Point(483, 412) And PictureBox10.Location = New System.Drawing.Point(599, 126) Then

Button1.Visible = True

Label3.Visible = True

End If

End Sub

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

Label1.Visible = False

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Label2.Visible = False

End Sub

Private Sub Фрукты_игра2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If flagok = True Then

Me.Controls.Clear()

InitializeComponent()

End If

End Sub

End Class

Public Class Фрукты_и_Овощи

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Hide()

Фрукты_и_Овощи2.Show()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Фрукты_Овощи.Refresh()

Me.Hide()

Фрукты_Овощи.Show()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Hide()

Form1.Show()

End Sub

Private Sub Фрукты_и_Овощи_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim fon As String = Application.StartupPath + "\" + "fonfo.mp3"

AxWindowsMediaPlayer1.URL = fon

End Sub

End Class

Public Class Фрукты_и_Овощи2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

Фрукты_Овощи.Show()

End Sub

Private Sub Фрукты_и_Овощи2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Public Class Фрукты_Овощи

Public flag As Boolean

Public flag2 As Boolean

Public flag3 As Boolean

Public flag4 As Boolean

Public flag5 As Boolean

Public flag6 As Boolean

Public flag7 As Boolean

Public flag8 As Boolean

Public flag9 As Boolean

Public flag10 As Boolean

Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

If PictureBox1.Location.X > 0 And PictureBox1.Location.X < 155 And PictureBox1.Location.Y > 55 And PictureBox1.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox1.Location = New System.Drawing.Point(5, 50)

PictureBox1.Enabled = False

PictureBox1.BorderStyle = BorderStyle.None

flag = False

End If

If PictureBox1.Location.X > 490 And PictureBox1.Location.X < 570 And PictureBox1.Location.Y > 55 And PictureBox1.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

PictureBox1.Enabled = True

flag = True

End If

End Sub

Private Sub Фрукты_Овощи_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If flag = True Then

PictureBox1.Location = New System.Drawing.Point(e.Location.X - PictureBox1.Width / 2, e.Location.Y - PictureBox1.Height / 2)

PictureBox1.BringToFront()

End If

If flag2 = True Then

PictureBox2.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y - PictureBox2.Height / 2)

PictureBox2.BringToFront()

End If

If flag3 = True Then

PictureBox3.Location = New System.Drawing.Point(e.Location.X - PictureBox3.Width / 2, e.Location.Y - PictureBox3.Height / 2)

PictureBox3.BringToFront()

End If

If flag4 = True Then

PictureBox4.Location = New System.Drawing.Point(e.Location.X - PictureBox4.Width / 2, e.Location.Y - PictureBox4.Height / 2)

PictureBox4.BringToFront()

End If

If flag5 = True Then

PictureBox5.Location = New System.Drawing.Point(e.Location.X - PictureBox5.Width / 2, e.Location.Y - PictureBox5.Height / 2)

PictureBox5.BringToFront()

End If

If flag6 = True Then

PictureBox6.Location = New System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y - PictureBox6.Height / 2)

PictureBox6.BringToFront()

End If

If flag7 = True Then

PictureBox7.Location = New System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y - PictureBox7.Height / 2)

PictureBox7.BringToFront()

End If

If flag8 = True Then

PictureBox8.Location = New System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y - PictureBox8.Height / 2)

PictureBox8.BringToFront()

End If

If flag9 = True Then

PictureBox9.Location = New System.Drawing.Point(e.Location.X - PictureBox9.Width / 2, e.Location.Y - PictureBox9.Height / 2)

PictureBox9.BringToFront()

End If

If flag10 = True Then

PictureBox10.Location = New System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y - PictureBox10.Height / 2)

PictureBox10.BringToFront()

End If

If PictureBox1.Location = New System.Drawing.Point(5, 50) And PictureBox6.Location = New System.Drawing.Point(4, 144) And PictureBox5.Location = New System.Drawing.Point(586, 437) And PictureBox7.Location = New System.Drawing.Point(595, 249) And

PictureBox4.Location = New System.Drawing.Point(591, 164) And PictureBox2.Location = New System.Drawing.Point(591, 335) And PictureBox3.Location = New System.Drawing.Point(5, 406) And PictureBox10.Location = New System.Drawing.Point(2, 229) And

PictureBox9.Location = New System.Drawing.Point(584, 45) And PictureBox8.Location = New System.Drawing.Point(3, 316) Then

Label5.Visible = True

Button2.Visible = True

End If

End Sub

Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

sender.cursor() = Cursors.Hand

PictureBox1.BorderStyle = BorderStyle.Fixed3D

flag = True

End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

sender.cursor() = Cursors.Default

PictureBox1.BorderStyle = BorderStyle.None

flag = False

End Sub

Private Sub Фрукты_Овощи_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If flagok = True Then

Me.Controls.Clear()

InitializeComponent()

End If

End Sub

Private Sub PictureBox4_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseUp

sender.cursor() = Cursors.Default

PictureBox4.BorderStyle = BorderStyle.None

flag4 = False

End Sub

Private Sub PictureBox4_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDown

sender.cursor() = Cursors.Hand

PictureBox4.BorderStyle = BorderStyle.Fixed3D

flag4 = True

End Sub

Private Sub PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown

sender.cursor() = Cursors.Hand

PictureBox6.BorderStyle = BorderStyle.Fixed3D

flag6 = True

End Sub

Private Sub PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp

sender.cursor() = Cursors.Default

PictureBox6.BorderStyle = BorderStyle.None

flag6 = False

End Sub

Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove

If PictureBox6.Location.X > 0 And PictureBox6.Location.X < 155 And PictureBox6.Location.Y > 55 And PictureBox6.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox6.Location = New System.Drawing.Point(4, 144)

PictureBox6.Enabled = False

PictureBox6.BorderStyle = BorderStyle.None

flag6 = False

End If

If PictureBox6.Location.X > 490 And PictureBox6.Location.X < 570 And PictureBox6.Location.Y > 55 And PictureBox6.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

PictureBox6.Enabled = True

flag6 = True

End If

End Sub

Private Sub PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp

sender.cursor() = Cursors.Default

PictureBox7.BorderStyle = BorderStyle.None

flag7 = False

End Sub

Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove

If PictureBox7.Location.X > 0 And PictureBox7.Location.X < 155 And PictureBox7.Location.Y > 55 And PictureBox7.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

flag7 = True

End If

If PictureBox7.Location.X > 490 And PictureBox7.Location.X < 570 And PictureBox7.Location.Y > 55 And PictureBox7.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox7.Location = New System.Drawing.Point(595, 249)

PictureBox7.Enabled = False

flag7 = False

PictureBox7.BorderStyle = BorderStyle.None

End If

End Sub

Private Sub PictureBox7_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown

sender.cursor() = Cursors.Hand

PictureBox7.BorderStyle = BorderStyle.Fixed3D

flag7 = True

End Sub

Private Sub PictureBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseMove

If PictureBox4.Location.X > 0 And PictureBox4.Location.X < 155 And PictureBox4.Location.Y > 55 And PictureBox4.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

flag4 = True

End If

If PictureBox4.Location.X > 490 And PictureBox4.Location.X < 570 And PictureBox4.Location.Y > 55 And PictureBox4.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox4.Location = New System.Drawing.Point(591, 164)

PictureBox4.Enabled = False

flag4 = False

PictureBox4.BorderStyle = BorderStyle.None

End If

End Sub

Private Sub PictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown

sender.cursor() = Cursors.Hand

PictureBox2.BorderStyle = BorderStyle.Fixed3D

flag2 = True

End Sub

Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove

If PictureBox2.Location.X > 0 And PictureBox2.Location.X < 155 And PictureBox2.Location.Y > 55 And PictureBox2.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

flag2 = True

End If

If PictureBox2.Location.X > 490 And PictureBox2.Location.X < 570 And PictureBox2.Location.Y > 55 And PictureBox2.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox2.Location = New System.Drawing.Point(591, 335)

PictureBox2.Enabled = False

flag2 = False

PictureBox2.BorderStyle = BorderStyle.None

End If

End Sub

Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

sender.cursor() = Cursors.Default

PictureBox2.BorderStyle = BorderStyle.None

flag2 = False

End Sub

Private Sub PictureBox3_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown

sender.cursor() = Cursors.Hand

PictureBox3.BorderStyle = BorderStyle.Fixed3D

flag3 = True

End Sub

Private Sub PictureBox3_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp

sender.cursor() = Cursors.Default

PictureBox3.BorderStyle = BorderStyle.None

flag3 = False

End Sub

Private Sub PictureBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMove

If PictureBox3.Location.X > 0 And PictureBox3.Location.X < 155 And PictureBox3.Location.Y > 55 And PictureBox3.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox3.Location = New System.Drawing.Point(5, 406)

PictureBox3.Enabled = False

PictureBox3.BorderStyle = BorderStyle.None

flag3 = False

End If

If PictureBox3.Location.X > 490 And PictureBox3.Location.X < 570 And PictureBox3.Location.Y > 55 And PictureBox3.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

PictureBox3.Enabled = True

flag3 = True

End If

End Sub

Private Sub PictureBox10_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseUp

sender.cursor() = Cursors.Default

PictureBox10.BorderStyle = BorderStyle.None

flag10 = False

End Sub

Private Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove

If PictureBox10.Location.X > 0 And PictureBox10.Location.X < 155 And PictureBox10.Location.Y > 55 And PictureBox10.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox10.Location = New System.Drawing.Point(2, 229)

PictureBox10.Enabled = False

PictureBox10.BorderStyle = BorderStyle.None

flag10 = False

End If

If PictureBox10.Location.X > 490 And PictureBox10.Location.X < 570 And PictureBox10.Location.Y > 55 And PictureBox10.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

PictureBox10.Enabled = True

flag10 = True

End If

End Sub

Private Sub PictureBox10_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown

sender.cursor() = Cursors.Hand

PictureBox10.BorderStyle = BorderStyle.Fixed3D

flag10 = True

End Sub

Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove

If PictureBox8.Location.X > 0 And PictureBox8.Location.X < 155 And PictureBox8.Location.Y > 55 And PictureBox8.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox8.Location = New System.Drawing.Point(3, 316)

PictureBox8.Enabled = False

PictureBox8.BorderStyle = BorderStyle.None

flag8 = False

End If

If PictureBox8.Location.X > 490 And PictureBox8.Location.X < 570 And PictureBox8.Location.Y > 55 And PictureBox8.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

PictureBox8.Enabled = True

flag8 = True

End If

End Sub

Private Sub PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp

sender.cursor() = Cursors.Default

PictureBox8.BorderStyle = BorderStyle.None

flag8 = False

End Sub

Private Sub PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown

sender.cursor() = Cursors.Hand

PictureBox8.BorderStyle = BorderStyle.Fixed3D

flag8 = True

End Sub

Private Sub PictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMove

If PictureBox9.Location.X > 0 And PictureBox9.Location.X < 155 And PictureBox9.Location.Y > 55 And PictureBox9.Location.Y < 515 Then

Label4.Visible = True

Timer2.Enabled = True

k_o += 1

flag9 = True

End If

If PictureBox9.Location.X > 490 And PictureBox9.Location.X < 570 And PictureBox9.Location.Y > 55 And PictureBox9.Location.Y < 515 Then

Label3.Visible = True

Timer1.Enabled = True

p_o += 1

k_o += 1

PictureBox9.Location = New System.Drawing.Point(584, 45)

PictureBox9.Enabled = False

flag9 = False

PictureBox9.BorderStyle = BorderStyle.None

End If

End Sub