spath = "c:\tmp\abc1.txt"
    lret = ShellExecute(hwnd, "open", spath, vbNull, vbNull, SW_SHOWNORMAL)
    If lret >= 0 And lret <= 32 Then
        MsgBox "error opening viewer program"
    End If
上述语句我执行后没有任何反映但如运行work、excel等文件都可以打开。