VB 显示桌面

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★显示桌面
Const CSIDL_APPDATA = &H1A
Const MAX_PATH = 260
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias _
    "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, _
    ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
'声明

   Dim strBuffer As String
    Dim strPath As String
    strBuffer = String$(MAX_PATH, 0)
    SHGetSpecialFolderPath Me.hwnd, strBuffer, CSIDL_APPDATA, 0
    strPath = Left$(strBuffer, InStr(1, strBuffer, Chr$(0)) - 1)
    strPath = strPath & "\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf"
    ShellExecute Me.hwnd, "Open", strPath, "", "", 1
'启动
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★显示桌面