Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Дрюня
декларация

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)

вызов

Private Sub mnuHelp_Help_Click() Dim s As String, res&          Call setCurDIR     s = CurDir$ & "\WTRS.chm"     res& = ShellExecute(hwnd, "open", s, vbNullString, CurDir$, SW_SHOW)     If res < 32 Then Exit Sub End Sub