dows.Forms.MouseEventArgs) Handles PictureBox3.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Зменшення яскравості (eX> 335) And (eX <365) And (eY> 255) And (eY <285) Then.Visible=True.Visible=False
MsgBox ("Ви впоралися із завданням» + vbCrLf + «Ваша оцінка 5»)
Obshaa_osenka=Obshaa_osenka + 5.Hide () _Form7_Контроль.Show () Sub
End If («Невірно» + vbCrLf + «ваша оцінка 3» + vbCrLf + «Пройдіть режим демонстрація»)
Me.Hide () _osenka=Obshaa_osenka + 3_Form7_Контроль.Show () SubClassClass Form11_Контроль_КонтрастSystem.Windows.Forms.FormSub PictureBox1_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
'Меню (eX> 280) And (eX <310) And (eY> 415) And (eY <460) Then.Visible=True.Visible=False
Exit SubIf («Невірно» + vbCrLf + «Пройдіть режим демонстрація»)
Me.Hide () _osenka=Obshaa_osenka + 0obj_Form7_Контроль As New Form7_Контроль_Form7_Контроль.Show () SubSub PictureBox2_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Вибір Контрасту (eX> 350) And (eX <385) And (eY> 185) And (eY <200) Then.Visible=True.Visible=FalseSubIf («Невірно» + vbCrLf + «ваша оцінка 1» + vbCrLf + «Пройдіть режим демонстрація»). Hide () _osenka=Obshaa_osenka + 1_Form7_Контроль.Show () SubSub PictureBox3_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Зменшення контрасту (eX> 300) And (eX <335) And (eY> 230) And (eY <245) Then.Visible=True.Visible=False
MsgBox ("Ви впоралися із завданням» + vbCrLf + «Ваша оцінка 5»)
Obshaa_osenka=Obshaa_osenka + 5.Hide () _Form7_Контроль.Show () Sub
End If («Невірно» + vbCrLf + «ваша оцінка 3» + vbCrLf + «Пройдіть режим демонстрація»)
Me.Hide () _osenka=Obshaa_osenka + 3_Form7_Контроль.Show () SubClass
Class Form12_Яркость_2_способSystem.Windows.Forms.FormSub PictureBox2_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
'Пуск (eX> 0) And (eX <150) And (eY> 470) And (eY <490) Then.Visible=True.Visible=False
Exit SubIf («Невірно» + vbCrLf + «Пройдіть режим демонстрація»)
Me.Hide () _osenka=Obshaa_osenka + 0obj_Form7_Контроль As New Form7_Контроль_Form7_Контроль.Show () SubSub PictureBox4_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Налаштування (eX> 255) And (eX <295) And (eY> 475) And (eY <500) Then.Visible=True.Visible=FalseSubIf («Невірно» + vbCrLf + « ; ваша оцінка 0.5 »+ vbCrLf +« Пройдіть режим демонстрація »). Hide () _osenka=Obshaa_osenka + 0.5_Form7_Контроль.Show () SubSub PictureBox5_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs ) Handles PictureBox5.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Екран (eX> 400) And (eX <448) And (eY> 610) And (eY <627) Then.Visible=True.Visible=FalseSubIf («Невірно» + vbCrLf + « ; ваша оцінка 1 »+ vbCrLf +« Пройдіть режим демонстрація »). Hide () _osenka=Obshaa_osenka + 1_Form7_Контроль.Show () SubSub PictureBox6_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEven...
