**** no módulo *****
'Windows API's - executa um commando com o arquivo associado
Public Declare Function ShellExecute Lib "shell32" 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
'Funcionalidade.....: esta sub executa um commando com o arquivo associado
Public Sub subAbreComando(ByVal vgCmd As String)
Dim lngI As Long
lngI = ShellExecute(mdiPrincipal.hWnd, vbNullString, vgCmd$, vbNullString, vbNullString, 1)
If lngI >= 0 And lngI <= 32 Then
MsgBox "Erro ao tentar executar o comando", vbCritical, strAtencao$
End If
End Sub
***** no menu ajuda ****
'Funcionalidade.....: esta sub trata a ação do click no menu Ajuda Conteúdo
Private Sub mnuConteúdo_Click()
subAbreComando "
C:Documento.doc"
End Sub