Private Sub spisok_Click(Index As Integer)

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