VB6 Abrir tipos de fichero DOC, RTF

[Hager]

para abrir archivos usa el siguiente metodo, este te retorna todo el contenido de texto del archivo

Function Abrir_file(file As String) As String
Dim FSO, textStreamObject
Set FSO = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = FSO.OpenTextFile(file, 1, True, 0)
Do While textStreamObject.AtEndOfLine <> True
Abrir_file = Abrir_file & textStreamObject.Read(1)
Loop
textStreamObject.Close
Set textStreamObject = Nothing
Set FSO = Nothing

End Function

para abrir pdf, necesitas otro tipo de procedimiento ya que el pdf es una imagen, la verdad no tengo un api para eso pero tu mision si decides aceptarla es encontrarlo!! jeje