Public 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)Public Const SW_HIDE& = 0
Public Const SW_SHOWMAXIMIZED& = 3
Public Const SW_SHOWMINIMIZED& = 2
Public Const SW_SHOWMINNOACTIVE& = 7
Public Const SW_SHOWNA& = 8
Public Const SW_SHOWNOACTIVATE& = 4
Public Const SW_SHOWNORMAL& = 1假设你要打开的WORD文件为 c:\abc.doc 则在窗体的KeyDown事件中写如下代码:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF1 Then
        ShellExecute(Me.hwnd, "open", "C:\abc.doc", "", "", SW_SHOWNORMAL)
    End If
End Sub