/>
Private Sub Label1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Dim obj_Form2_Главная_форма As New Form2_Главная_форма_Form2_Главная_форма.Show ()
Me.Hide () Sub
Sub Label2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.ClickSub
Sub Form1_Тітульний_ліст_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
'Діда (eX> 610) And (eX <780) And (eY> 241) And (eY <480) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « 2_Діда . ppt »_Form4_Презентація.Show () If
End Sub
Class
Public Class Form2_Главная_формаSystem.Windows.Forms.Formk As Integer
72
Private Sub MenuItem6_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click.Hide () obj_Form1_Тітульний_ліст As New Form1_Титульный_лист_Form1_Титульный_лист.Show () SubSub MenuItem7_Click (ByVal sender As System. Object, ByVal e As System.EventArgs) Handles MenuItem7.ClickSubSub MenuItem1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click.Hide () obj_Form3_Демонстрація As New Form3_Демонстрация_Form3_Демонстрация.Show () SubSub MenuItem3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click.Hide () obj_Form5_Тренінг As New Form5_Тренінг ()=Int (10 * Rnd ()) k=0 To 9 (k)=0_Form5_Тренінг.Label6.Text= CStr (a (i)) _Form5_Тренінг.Show () SubSub MenuItem4_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
Me.Hide () obj_Form6_Общий_вид_компъютера_контроль As New Form6_Общий_вид_компъютера__контроль_Form6_Общий_вид_компъютера_контроль.Show()
End SubSub MenuItem5_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click.Hide () obj_Form7_Контроль As New Form7_Контроль ()=Int (3 * Rnd ()) k=0 To 2 ( k)=0_osenka=0_zadania=0_Form7_Контроль.Label6.Text=CStr (R (i)) _Form7_Контроль.Show (). Hide () SubSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click . Hide () obj_Form_Сведенія As New Form_Сведения_Form_Сведения.Label1.Visible=True_Form_Сведенія.Label2.Visible=False_Form_Сведенія.Label3.Visible=False_Form_Сведенія.Show () SubSub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2. Click.Hide () obj_Form_Сведенія As New Form_Сведения_Form_Сведения.Label1.Visible=False_Form_Сведенія.Label2.Visible=True_Form_Сведенія.Label3.Visible=False_Form_Сведенія.Show () SubSub Button4_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4 . Click.Hide () obj_Form_Сведенія As New Form_Сведения_Form_Сведения.Label1.Visible=False_Form_Сведенія.Label2.Visible=False_Form_Сведенія.Label3.Visible=True_Form_Сведенія.Show () SubSub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Hide () obj_Form6_Общий_вид_компъютера_контроль As New Form6_Общий_вид_компъютера__контроль_Form6_Общий_вид_компъютера_контроль.Show()
End SubSub Button6_Click (ByVal sender As System.Object, ByVal e As S...
