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