点击下载此附件

Private Sub Excel_Click()
Shell "EXCEL.EXE", vbMaximizedFocus  '执行Excel程序
End Sub

Private Sub PowerPoint_Click()
Shell "POWERPNT.EXE", vbMaximizedFocus  '执行POWERPNT程序
End Sub

Private Sub Word_Click()
Shell "WINWORD.EXE", vbMaximizedFocus  '执行Word程序
End Sub

Private Sub 画图_Click()
Shell "mspaint.exe", vbMaximizedFocus  '执行画图程序
End Sub

Private Sub 计算器_Click()
p = Shell("calc.exe", vbMaximizedFocus) '执行计算器程序
End Sub

Private Sub 记事本_Click()
Shell "notepad.exe", vbMaximizedFocus  '执行记事本程序
End Sub

Private Sub 看图_Click()
On Error GoTo err1
Shell "C:\Program Files\ACDSee\ACDSee9.exe", vbMaximizedFocus  '执行看图程序
Exit Sub
err1:
 MsgBox ("文件路径错误或没有安装看图软件")
End Sub