私有聲明函數shell execute Lib " shell 32 . dll " Alias _
" ShellExecuteA "
(ByVal hWnd為Long，ByVal lpOperation為String，_
字符串形式的ByVal lpFile，_
字符串形式的ByVal lpParameters，_
字符串形式的ByVal lpDirectory，_
ByVal nShowCmd壹樣長)壹樣長
const SW _ show normal As Long = 1
Const SW_HIDE As Long = 0
私有子窗體_Click()
調用ShellExecute(Me.hWnd，" Open "，" d:\2.txt "，vbNullString，_
App。路徑，SW_SHOWNORMAL)
末端接頭