vb按钮怎么打开一个word文挡啊

求一个vb小程序
就是里面有一个按钮  一按就打开指定位置的word文挡
如果能把源程序发过来更好
如果不能
请将按钮里面的语句写下吧

答案或建议：

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

Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", "D:\test.doc", "", App.Path, 1
End Sub

转 载 请 保 留：http://www.baikewenda.com/tech/dev/7/3/a161967418.htm