Обновление рабочего стола - VB

Формулировка задачи:

Всем привет! Встал вопрос после создания/удаления ярлыков на рабочем столе обновить последний. Все что нашел на форуме, так это пример "по F5" и под NET...

                    Листинг программы
                
 
                        
                          
                    
Declare Auto Function FindWindow Lib "User32.Dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Declare Auto Function SetForegroundWindow Lib "User32.Dll" (ByVal hWnd As IntPtr) As Boolean
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Des As IntPtr = FindWindow("Progman", "Program Manager")
        SetForegroundWindow(Des)
        SendKeys.SendWait("{F5}")
    End Sub

Никто не поможет, тоже под VB6?

Решение задачи: «Обновление рабочего стола»

textual
                            Листинг программы 
                        
Option Explicit
 
Private Const SHCNE_ASSOCCHANGED As Long = &H8000000
Private Const SHCNF_IDLIST As Long = &H0
 
Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _
ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long
 
Private Sub Command1_Click()
' обновить рабочий стол
Call SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)
 
End Sub