Color.FromArgb (CType (192, Byte), CType (192, Byte), CType (255, Byte)). PictureBox1.Dock=System . Windows.Forms.DockStyle.Fill.PictureBox1.Image=CType (resources.GetObject («PictureBox1.Image»), System.Drawing.Image). PictureBox1.Location=New System.Drawing.Point (0, 0). PictureBox1.Name=«PictureBox1». PictureBox1.Size=New System.Drawing.Size (692, 466). PictureBox1.SizeMode=System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox1.TabIndex=5.PictureBox1.TabStop=False
«» Button4
'Me.Button4.BackColor=System.Drawing.Color.Yellow.Button4.Font=New System.Drawing.Font («Comic Sans MS», 18.0!, System.Drawing.FontStyle. Bold, System.Drawing.GraphicsUnit.Point, CType (204, Byte)). Button4.ForeColor=System.Drawing.Color.Blue.Button4.Location=New System.Drawing.Point (0, 424). Button4.Name= «Button4». Button4.Size=New System.Drawing.Size (144, 40). Button4.TabIndex=14.Button4.Text=«Про автора»
«» Button5
'Me.Button5.BackColor=System.Drawing.Color.Orange.Button5.Font=New System.Drawing.Font («Comic Sans MS», 18.0!, System.Drawing.FontStyle. Bold, System.Drawing.GraphicsUnit.Point, CType (204, Byte)). Button5.ForeColor=System.Drawing.Color.FromArgb (CType (0, Byte), CType (0, Byte), CType (192, Byte) ). Button5.Location=New System.Drawing.Point (160, 424). Button5.Name=«Button5». Button5.Size=New System.Drawing.Size (120, 40). Button5.TabIndex=15.Button5 . Text="Довідка"
«» Form7
'Me.AutoScaleBaseSize=New System.Drawing.Size (5, 13). ClientSize=New System.Drawing.Size (692, 466). ControlBox=False.Controls.Add(Me.Button5).Controls.Add(Me.Button4).Controls.Add(Me.Label1).Controls.Add(Me.PictureBox1).Controls.Add(Me.PictureBox4).Controls.Add(Me.PictureBox3).Controls.Add(Me.PictureBox2). Name=«Form7». StartPosition=System.Windows.Forms.FormStartPosition.CenterScreen.Text=«Заданіе1». ResumeLayout (False) Sub
# End Regionbal_1 As IntegerSub PictureBox1_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp_1=0
'включення (eX> 504) And (eX <624) And (eY> 288) And (eY <328) Or _
(eX> 24) And (eX <72) And (eY> 120) And (eY <144) Then.Visible=False.Visible=True.Visible=False.Visible =FalseSubIf («Неправильно.» + vbCrLf + «Ви заробили 0 балів.», MsgBoxStyle.Critical, «Результат»)
Me.Hide () _1=0obj_Form8 As New Form8_Form8.Show () SubSub PictureBox2_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
'вставка касети (eX> 336) And (eX <512) And (eY> 152) And (eY <200) Then.Visible=False.Visible=False.Visible= True.Visible=FalseSubIf («Неправильно.» + vbCrLf + «Ви заробили 2 бали.», MsgBoxStyle.Critical, «Результат»)
Me.Hide () _1=2obj_Form8 As New Form8_Form8.Show () SubSub PictureBox3_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp
'Playobj_Form8 As New Form8 (eX> 544) And (eX <640) And (eY> 216) And (eY <248) Or _
(eX> 48) And (eX <96) And (eY> 152) And (eY <176) Then.Visible=False.Visible=False.Visible=False.Visible =True
MsgBox ("Ви повністю пройшли перше завдання, Ваша оцінка за перше за...
