没有想到shell32.dll还隐藏着很多实用的功能函数，比如打开文件夹，查找电脑，最小化所有窗体等等，这个shell32.dll既是一个标准的COM，还是一个可以作为普通的DLL进行函数引用。
'*************************************************************************
'**模 块 名：frmDemo
'**说 明：YFsoft 版权所有2006 - 2007(C)
'**创 建 人：叶帆
'**日 期：2006-08-29 10:55:17
'**修 改 人：
'**日 期：
'**描 述：微软核心模块shell32.dll的应用
'**版 本：V1.0.0
'*************************************************************************
Option Explicit
Dim MsShell As New Shell '*************************************************************************
'**函 数 名：cmdTest_Click
'**输 入：Index(Integer) -
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2006-08-29 10:55:19
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub cmdTest_Click(Index As Integer)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
Select Case Index
'------------------------------------------------
Case 0: '查找电脑
MsShell.FindComputer
Case 1: '文件运行
MsShell.FileRun
Case 2: '查找文件夹
MsgBox MsShell.BrowseForFolder(Me.hWnd, "查找文件夹", 0).Title
Case 3: '层叠窗口
MsShell.CascadeWindows
Case 4: '查找文件
MsShell.FindFiles
Case 5: 'Windows帮助
MsShell.Help
Case 6: '窗口最小化
MsShell.MinimizeAll
Case 7: '恢复最小化
MsShell.UndoMinimizeALL
Case 8: '打开文件
MsShell.Open ("c:windows otepad.exe")
Case 9: '设置时间
MsShell.SetTime
Case 10: '关闭计算机
MsShell.ShutdownWindows
Case 11: '水平窗口
MsShell.TileHorizontally
Case 12: '垂直窗口
MsShell.TileVertically
Case 13: '路径名称
MsgBox MsShell.NameSpace("c:windowssystem32").Title
End Select
'------------------------------------------------
Exit Sub
'----------------
ToExit:
MsgBox Err.Description
End Sub
'**模 块 名：frmDemo
'**说 明：YFsoft 版权所有2006 - 2007(C)
'**创 建 人：叶帆
'**日 期：2006-08-29 10:55:17
'**修 改 人：
'**日 期：
'**描 述：微软核心模块shell32.dll的应用
'**版 本：V1.0.0
'*************************************************************************
Option Explicit
Dim MsShell As New Shell '*************************************************************************
'**函 数 名：cmdTest_Click
'**输 入：Index(Integer) -
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2006-08-29 10:55:19
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub cmdTest_Click(Index As Integer)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
Select Case Index
'------------------------------------------------
Case 0: '查找电脑
MsShell.FindComputer
Case 1: '文件运行
MsShell.FileRun
Case 2: '查找文件夹
MsgBox MsShell.BrowseForFolder(Me.hWnd, "查找文件夹", 0).Title
Case 3: '层叠窗口
MsShell.CascadeWindows
Case 4: '查找文件
MsShell.FindFiles
Case 5: 'Windows帮助
MsShell.Help
Case 6: '窗口最小化
MsShell.MinimizeAll
Case 7: '恢复最小化
MsShell.UndoMinimizeALL
Case 8: '打开文件
MsShell.Open ("c:windows otepad.exe")
Case 9: '设置时间
MsShell.SetTime
Case 10: '关闭计算机
MsShell.ShutdownWindows
Case 11: '水平窗口
MsShell.TileHorizontally
Case 12: '垂直窗口
MsShell.TileVertically
Case 13: '路径名称
MsgBox MsShell.NameSpace("c:windowssystem32").Title
End Select
'------------------------------------------------
Exit Sub
'----------------
ToExit:
MsgBox Err.Description
End Sub