VB中如何使用通用对话框打开world？

Question

那个vb程序可以打开记事本的，打开world不行，出现“邢唷?
”就没了，请指教，谢谢！

Answer 1

Option Explicit
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()
Dim f
With CreateObject("UserAccounts.CommonDialog")
.Filter = "doc File|*.doc": .InitialDir = "d:\"
f = .ShowOpen
If f Then ShellExecute Me.hwnd, "open", .FileName, "", "", 5
End With
End Sub