没有想到shell32.dll还隐藏着很多实用的功能函数，比如打开文件夹，查找电脑，最小化所有窗体等等，这个shell32.dll既是一个标准的COM，还是一个可以作为普通的DLL进行函数引用。
引用：Ms Shell Con...
Option Explicit
Dim MsShell As New Shell
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