'Play (eX> 870) And (eX <890) And (eY> 70) And (eY <91) Then.Visible=True.Visible=FalseIf
'CD_Rom (eX> 894) And (eX <914) And (eY> 75) And (eY <95) Then_ROM.Visible=True_ROM.Visible=FalseIf
'Flopy (eX> 838) And (eX <858) And (eY> 294) And (eY <314) Then.Visible=True.Visible=FalseIf
'Resert (eX> 806) And (eX <826) And (eY> 486) And (eY <506) Then.Visible=True.Visible=FalseIf
'Power (eX> 470) And (eX <490) And (eY> 430) And (eY <450) Then.Visible=True.Visible=FalseIf
'Select (eX> 406) And (eX <426) And (eY> 445) And (eY <466) Then_.Visible=True_.Visible=FalseIf
'Меню (eX> 290) And (eX <315) And (eY> 441) And (eY <469) Then_1.Visible=True_1.Visible=FalseIf
'Контраст (eX> 364) And (eX <388) And (eY> 445) And (eY <466) Then
Контраст.Visible=True
Контраст.Visible=FalseIf
'Яскравість (eX> 325) And (eX <346) And (eY> 440) And (eY <461) Then
Яркость.Visible=True
Яркость.Visible=FalseIf
'Гучність (eX> 750) And (eX <770) And (eY> 70) And (eY <90) Then
Громкость.Visible=True
Громкость.Visible=FalseIfSub
'# End RegionSub Label3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click.Hide () obj_Form2_Главная_форма As New Form2_Главная_форма
obj_Form2_Главная_форма.Show () SubClass
Public Class Form5_ТренингSystem.Windows.Forms.FormPravelno, NePravelno As Integermax As IntegerSub PictureBox1_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
Dim obj_Form2_Главная_форма As New Form2_Главная_форма
max=max + 1
'Play (e.X> 870) And (e.X <890) And
(eY> 70) And (eY <91) And a (i)=a (0) Then («Мабуть») _Form4_Презентація=New Form4_Презентація=Application.StartupPath + « PLAY.ppt» _Form4_Презентація . Show () (0)=b (0) + 1b (0) <= 3 Then Pravelno +=1
'CD_Rom (eX> 894) And (eX <914) And (eY> 75) And (eY <95)And a (i)=a (1) Then («Мабуть») _Form4_Презентація=New Form4_Презентація=Application.StartupPath + « OPEN_CLOSE.ppt» _Form4_Презентація.Show () (1)=b (1) + 1b (1 ) <= 3 Then Pravelno +=1
'Flopy (eX> 768) And (eX <904) And (eY> 288) And (eY <328) And a (i)=a (2) Then («Мабуть») _Form4_Презентація =New Form4_Презентація=Application.StartupPath + « Дісковод.ppt» _Form4_Презентація.Show () (2)=b (2) + 1b (2) <= 3 Then Pravelno +=1
'Resert (eX> 811) And (eX <843) And (eY> 488) And (eY <520) And a (i)=a (3) Then («Мабуть») _Form4_Презентація =New Form4_Презентація=Application.StartupPath + « RESET.ppt» _Form4_Презентація.Show () (3)=b (3) + 1b (3) <= 3 Then Pravelno +=1
'Power (eX> 470) And (eX <490) And (eY> 430) And (eY <450) And a (i)=a (4) Then («Мабуть») _Form4_Презентація =New Form4_Презентація=Application.StartupPath + « POWER.ppt» _Form4_Презентація.Show () (4)=b (4) + 1b (4) <= 3 Then Pravelno +=1
'Select (eX> 406) And (eX <426) And (eY> 445) And (eY <466) And a (i)=a (5) Then («Мабуть») _Form4_Презентація =New Form4_Презентація=Application.StartupPath + « SELECT.ppt» _Form4_Презентація.Show () (5)=b (5) + 1b (5) <= 3 Then Pravelno +=1
'Меню (eX> 290) And (eX <315) And (eY> 441) And (eY <469) And a (i)=a (6) Then («Мабуть») _Form4_Презентація =New...
