by adrian_the_great (3 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 20th July 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Open Microsoft Word
VBcoders
'7-20-04
Option Explicit
Private Sub cmdWord_Click()
Dim pintID As Long
pintID = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", vbHide)
End Sub
'opens an exe files and hides it-change the directory to any you perfer