Solución: (VB6.0) ¿Cómo abrir un archivo PDF en el programa?

El siguiente código llama al programa predeterminado del sistema para abrir PDF. Preste atención para modificar la ruta del archivo D:\help.pdf

Función de declaración privada ShellExecute Lib "shell32.dll" alias "ShellExecuteA" (ByVal hwnd As). Largo, ByVal lpOperation como cadena, ByVal lpFile como cadena, ByVal lpParameters como cadena, ByVal lpDirectory como cadena, ByVal nShowCmd como largo) como largo

Const privado SW_SHOWNORMAL = 1

Subcomando privado1_Click()

Resultado atenuado

resultado = ShellExecute(0, vbNullString, "D. M. ayuda:\ help.pdf", vbNullString, vbNullString, SW_SHOWNORMAL)

Si el resultado <= 32 Entonces

MsgBox "¡Falló la apertura!", vbOKOnly + vbCritical, "Error:", 0

Finalizar si

Subtítulo final