p align="justify"> «» MenuItem1
'Me.MenuItem1.Index=0.MenuItem1.Text=«Демонстрація»
«» MenuItem2
'Me.MenuItem2.Index=1.MenuItem2.Text=«Тренінг»
«» MenuItem3
'Me.MenuItem3.Index=2.MenuItem3.Text=«Контроль»
«» MenuItem4
'Me.MenuItem4.Index=3.MenuItem4.Text=«Назад»
«» MenuItem5
'Me.MenuItem5.Index=4.MenuItem5.Text="Вихід"
«» Button1
'Me.Button1.BackColor=System.Drawing.Color.Yellow.Button1.Font=New System.Drawing.Font («Comic Sans MS», 18.0!, System.Drawing.FontStyle. Bold, System.Drawing.GraphicsUnit.Point, CType (204, Byte)). Button1.ForeColor=System.Drawing.Color.FromArgb (CType (0, Byte), CType (0, Byte), CType (192, Byte) ). Button1.Location=New System.Drawing.Point (16, 408). Button1.Name=«Button1». Button1.Size=New System.Drawing.Size (144, 40). Button1.TabIndex=0.Button1 . Text=«Про автора»
«» 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 (16, 456). Button2.Name=«Button2». Button2.Size=New System.Drawing.Size (136, 40). Button2.TabIndex=1.Button2 . Text="Довідка"
«» Form2
'Me.AutoScaleBaseSize=New System.Drawing.Size (5, 13). BackgroundImage=CType (resources.GetObject («$ this.BackgroundImage»), System.Drawing.Image). ClientSize =New System.Drawing.Size (840, 505). ControlBox=False.Controls.Add (Me.Button2). Controls.Add (Me.Button1). Menu=Me.MainMenu1.Name=«Form2». Text= «Режими». ResumeLayout (False) Sub
# End RegionSub MenuItem1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Clickobj_Form15 As New Form15_Form15.Show () SubSub MenuItem2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Clickobj_Form16 As New Form16_Form16.Show () SubSub MenuItem3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Clickobj_Form17 As New Form17_Form17.Show () SubSub MenuItem4_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click () SubSub MenuItem5_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.ClickSubSub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show () _Form14.AxWebBrowser1 . Navigate (Application.StartupPath + « СПРАВКА.htm») SubSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form13 As New Form13_Form13.Show () SubClass
Програма для форми 3
Public Class Form3
Inherits System.Windows.Forms.Form
# Region « Windows Form Designer generated code »Sub New (). New ()
'This call is required by the Windows Form Designer. ()
'Add any initialization...
