Монтаж, эксплуатация и ремонт технологического оборудования. Курсовое проектирование. Юнусов Г.С - 132 стр.

   End Sub
   Public Sub Kran(Nomer As Integer)
   'Включает таблицы для расчета выбранного крана
   '0-башеный кран, 1-самоходный со стрелой, 2-самоходный с
гуськом,
   '3-технико-экономические параметры
     For I = 0 To 3
      If I = Nomer Then Da = True Else Da = False
      Frame1(I).Visible = Da
      MSFlexGrid1(I).Visible = Da
      MSFlexGrid2(I).Visible = Da
      Text1(2 * I).Visible = Da
      Text1(2 * I + 1).Visible = Da
     Next I
   End Sub
   Private Sub About_Click(Index As Integer)
     Form2.Visible = True
   End Sub

   Private Sub Exit_Click(Index As Integer)
     StyleMsg = (vbOK Or vbOKCancel) + vbQuestion + vbDe-
faultButton2
     TitleMsg = "Конец программы"
     IR = MsgBox("ВЫ ХОТИТЕ ВЫЙТИ ИЗ ПРОГРАММЫ?",
StyleMsg, TitleMsg)
     If IR = vbOK Then
       Unload Form1
       Unload Form2
       Unload Form3
     Else
       Form1.MSFlexGrid1(0).SetFocus
     End If
   End Sub
   Private Sub Form_Load()
     Kran (0) 'Расчеты начинаем с 0-крана

   'Таблицы для 0-крана (Монтажный кран)
   Frame1(0).Height = 5500
   With MSFlexGrid1(0)
     .ColWidth(0) = 8620
                             131