Right clicking your desktop, and selecting View-->Show desktop icons, is too many clicks and mouse movement. The following code toggles desktop icons. Just put this code in a standard module, and set the Startup object to Sub Main:

VB Code:
  1. Option Explicit
  2.  
  3. Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
  4. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  5. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  6. Public Const GW_CHILD = 5
  7. Public Const WM_COMMAND = &H111
  8.  
  9. Public Sub Main()
  10.     Const toggleDesktopCommand As Long = &H7402
  11.     Dim hWnd As Long
  12.    
  13.     hWnd = GetWindow(FindWindow("Progman", "Program Manager"), GW_CHILD)
  14.     SendMessage hWnd, WM_COMMAND, toggleDesktopCommand, ByVal 0&
  15. End Sub

"Original" source in C# can be found here, which is probably from another source.