.Point (0, 0 ). PictureBox3.Name=«PictureBox3». PictureBox3.Size=New System.Drawing.Size (688, 461). PictureBox3.SizeMode=System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox3.TabIndex=14.PictureBox3.TabStop =False
«» Button2
'Me.Button2.BackColor=System.Drawing.Color.Orange.Button2.Font=New System.Drawing.Font («Comic Sans MS», 18.0!, System.Drawing.FontStyle. Bold, System.Drawing.GraphicsUnit.Point, CType (204, Byte)). Button2.ForeColor=System.Drawing.Color.FromArgb (CType (0, Byte), CType (0, Byte), CType (192, Byte) ). Button2.Location=New System.Drawing.Point (240, 424). Button2.Name=«Button2». Button2.Size=New System.Drawing.Size (136, 40). Button2.TabIndex=17.Button2 . Text="Довідка"
«» 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.FromArgb (CType (0, Byte), CType (0, Byte), CType (192, Byte) ). Button4.Location=New System.Drawing.Point (72, 424). Button4.Name=«Button4». Button4.Size=New System.Drawing.Size (144, 40). Button4.TabIndex=16.Button4 . Text=«Про автора»
«» PictureBox4
'Me.PictureBox4.Image=CType (resources.GetObject («PictureBox4.Image»), System.Drawing.Image). PictureBox4.Location=New System.Drawing.Point (0, 0 ). PictureBox4.Name=«PictureBox4». PictureBox4.Size=New System.Drawing.Size (688, 461). PictureBox4.SizeMode=System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox4.TabIndex=18.PictureBox4.TabStop =False
«» Form9
'Me.AutoScaleBaseSize=New System.Drawing.Size (5, 13). ClientSize=New System.Drawing.Size (692, 466). ControlBox=False.Controls.Add(Me.Button2).Controls.Add(Me.Button4).Controls.Add(Me.Label1).Controls.Add(Me.Button1).Controls.Add(Me.Button3).Controls.Add(Me.PictureBox1).Controls.Add(Me.PictureBox3).Controls.Add(Me.PictureBox2).Controls.Add(Me.PictureBox4).Name =«Form9». StartPosition=System.Windows.Forms.FormStartPosition.CenterScreen.Text=«Завдання 3». ResumeLayout (False) Sub
# End RegionSub PictureBox1_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp=0
'зупинка (eX> 568) And (eX <584) And (eY> 248) And (eY <264) Or _
(eX> 80) And (eX <112) And (eY> 192) And (eY <216) Then.Visible=False.Visible=True.Visible=False.Visible =FalseSubIf=0 («Неправильно.» + vbCrLf + «Ви заробили 0 балів.», MsgBoxStyle.Critical, «Результат») bal As Integer=(bal1 + bal2 + bal3) ocenka As Integer=(( bal) * 5) 18st As String=«Ваша загальна оцінка» + CStr (ocenka) + « ! »(« Ви набрали »+ CStr (bal) +« бали (ів). »+ VbCrLf + st, MsgBoxStyle.Exclamation,« Ваша оцінка »). Close () obj_Form2 As New Form2_Form2.Show () SubSub PictureBox2_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
'вставка касети (eX> 568) And (eX <584) And (eY> 248) And (eY <272) Or _
(eX> 80) And (eX <112) And (eY> 120) And (eY <144) Then.Visible=False.Visible=False.Visible=True.Visible =FalseSubIf=2 («Неправильно.» + vbCrLf + «Ви заробили 2 бали.», MsgBoxStyle.Critical, «Резул...
