The code for my program is as follows :
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 cmdAgree_Click()
MsgBox "Thank you, have fun, and please call us with any questions"
Dim ret As Long
ret = ShellExecute(0&, vbNullString, "\cdcatalogue\index.htm", vbNullString, vbNullString, vbNormal)
End
End Sub
The ShellExecute works well for Internet Explorer 5.5 and Netscape only, it will not execute Explorer 6 or older than Explorer 5, I believe the error is in my code but am not sure, I also have not tried it on any Netscape previous to the newest one so they may not work either, any information or fixes would be greatly appreciated. Thanks
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 cmdAgree_Click()
MsgBox "Thank you, have fun, and please call us with any questions"
Dim ret As Long
ret = ShellExecute(0&, vbNullString, "\cdcatalogue\index.htm", vbNullString, vbNullString, vbNormal)
End
End Sub
The ShellExecute works well for Internet Explorer 5.5 and Netscape only, it will not execute Explorer 6 or older than Explorer 5, I believe the error is in my code but am not sure, I also have not tried it on any Netscape previous to the newest one so they may not work either, any information or fixes would be greatly appreciated. Thanks