VB the transfer opens each kind of document

Any document may, so long as has been connected related procedure 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 \ 'the transfer opens c:a.ppt Private Sub Command1_Click() Dim pat pat = \ “c:a.ppt \” \ 'the supposition is you puts the document way ShellExecute Me.hwnd, \ “open \”, pat, pat, vbNull, 3 End Sub