求助“VB如何实现打开控制面板和我的电脑”

Question

我刚学VB，很菜的。现在在试着做一快速启动软件，就是一点“我的电脑”按钮就打开本地计算机上的“我的电脑”，一点“控制面板”就能很快的打开，谢谢回答哈！

Answer 1

'{打开控制面板}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL", 9)
'{辅助选项 属性-键盘}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1", 9)
'{辅助选项 属性-声音}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2", 9)
'{辅助选项 属性-显示}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3", 9)
'{辅助选项 属性-鼠标}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4", 9)
'{辅助选项 属性-常规}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", 9)
'{添加/删除程序 属性-安装/卸载}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1", 9)
'{添加/删除程序 属性-Windows安装程序}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2", 9)
'{添加/删除程序 属性-启动盘}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3", 9)
'{显示 属性-背景}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 9)
'{显示 属性-屏幕保护程序}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", 9)
'{显示 属性-外观}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", 9)
'{显示 属性-设置}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", 9)
'{Internet 属性-常规}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0", 9)
'{Internet 属性-安全}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1", 9)
'{Internet 属性-内容}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2", 9)
'{Internet 属性-连接}
Call Shell("rundll32.exe shell32.dll,Control_RunDLL I

Answer 2

Private Sub Command1_Click()
Shell "EXPLORER.EXE  /n,  /e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus
End Sub