Select Case Index
Case 0
menu.Enabled=False
Load poisk
Poisk.Show
Case 1
End
End Select
End Sub
Private Sub spravka_Click(Index As Integer)
Select Case Index
Case 0
menu.Enabled=False
Load razrab
Razrab.Show
Case 1
glavn.Enabled=False
Load oprog
Oprog.Show
End Select
End Sub
4. Оформить 4-ю форму по образцу (рис. 58). Задать ей свойство name – Poisk. Записать следующие программные коды для объектов формы:
Программный код для раздела General Declarations:
Dim slovarr(1 To 50) As String