有没有去除桌面图标文字底色的代码？（无内容）

Question

以下放入模块中：
Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LVM_SETTEXTBKCOLOR = &H1000 + 38
Sub Main()
Dim Parent&, Child&, CChild&
Parent = FindWindow(vbNullString, "Program Manager")
If Parent = 0 Then ShowError
Child = FindWindowEx(Parent, 0, "SHELLDLL_DefView", vbNullString)
If Child = 0 Then ShowError
CChild = FindWindowEx(Child, 0, "SysListView32", vbNullString)
If CChild = 0 Then ShowError
SendMessage CChild, LVM_SETTEXTBKCOLOR, 0, ByVal &HFFFFFFFF
InvalidateRect CChild, 0, True
End Sub
Private Sub ShowError()
    MsgBox "不好意思，未知的错误", vbOKOnly + vbInformation
    End
End Sub