利用VB完全控制你的桌面图标

Windows中的桌面图标的排列方式是否让你感到厌倦而想按照自己的想法排列图标。是否想改变桌面图标文字的背景而不
使在图标文字下出现一个个难看的色块。这里我要介绍如何通过VB来对桌面的图标进行彻底的改变。
    其实在Windows下的桌面以及任务栏等都是窗口对象，我们可以利用Windows API函数FindWindow和FindWindowEx来获得
它们的句柄，然后再调用其它相应的API函数来控制它们。而放置桌面图标的窗口是一个ListView对象，利用SendMessage函数
向该窗口发送相应的消息，就可以对图标进行修改了。下面是具体的程序实现。
    首先在VB中建立一个新的工程，在Form1中加入三个CommandButton控件，然后在Form1的代码窗口中加入以下代码：
Option Explicit
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
        hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) _
        As Long
Private Declare Function SendMessageP Lib "user32" Alias "SendMessageA" (ByVal _
        hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) _
        As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, _