Ошибка sub or function not defined - VB

Формулировка задачи:

Здравствуйте, помогите пожалуйста разобраться в чем тут ошибка?

                    Листинг программы
                
Private Sub Кнопка11_Click()
Call ShellExecute(0, "open", "H:\БДиСУБД\КУРСОВАЯ\help\Help.chm", "", "", SW_SHOWNORMAL)
End Sub

Решение задачи: «Ошибка sub or function not defined»

textual
                            Листинг программы 
                        
Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias _ 
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Const SW_SHOWNORMAL = 1

Оцени полезность:

15 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы