Pastetool - HideDesktopIcons
URL: , Paste another'declarations
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow& Lib "User32" (ByVal hWnd&, ByVal nCmdShow&)
'code
Public Function HideDesktopIcons()
Dim hHandle As Long
hHandle = FindWindow("progman", vbNullString)
ShowWindow hHandle, 0
End Function
Download code
This visual basic code was pasted on September 25, 2009
Protected with advance Anti-SPAM techniques :)
Coded and designed by Fedmich
