End Sub. Private Sub zakr_Click()

Private Sub zakr_Click()

Unload spravka

glav.Enabled=True

Glav.SetFocus

End Sub

15. В главной форме проекта запишите программный код для команд операционного меню справка.

Private Sub sp1_Click(Index As Integer)

Select Case Index

Case 1

glav.Enabled=False

Opisanie.Show

Case 2

glav.Enabled=False

Spravka.Show

End Select

End Sub

Private Sub okbut_Click()

Unload opisanie

glav.Enabled=True

Glav.SetFocus

End Sub

Private Sub zakr_Click()

Unload spravka

glav.Enabled=True

Glav.SetFocus