CodeItBetter Programming Another VB Programming Blog

'System & API - How to Show/Hide all Desktop Icons
Option Explicit
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
 
Sub Main()
    Call HideDesktopIcons(True)    'To Hide Desktop Icons
    'Call HideDesktopIcons(False) 'To Show Desktop Icons
End Sub
 
Public Sub HideDesktopIcons(ByVal blnHide As Boolean)
    Dim lHwnd As Long
    lHwnd = FindWindowEx(0, 0, "Progman", vbNullString)
    ShowWindow lHwnd, IIf(blnHide, SW_HIDE, SW_SHOW)
End Sub