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
Private Sub commandbutton_Click()
ShellExecute 0&, vbNullString, "C:\help.chm", vbNullString, vbNullString, 3
End Sub
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 152