comment simuler la barre de tache windows ?

j'ai remplacé dans le fichier system.ini dans la section [boot], shell=explorer.exe par shell=monprog.exe (mon programme).
le problème est que la barre de tache est absente et donc il devient difficule de voir toutes les fenetres en cours d'execution.
Que faut-il faire pour afficher la barre de tache ?
Si cela n'est pas possible comment simuler le fonctionnement de la barre de tache ?

' Exemple proposé par Ket Ans (ket_ans@hotmail.com)

Public Function GetTaskbarHWND() As Long
GetTaskbarHWND = FindWindow("shell_traywnd", "")
End Function

' On peut ensuite utiliser ce handle pour cacher ou
' afficher la barre des tâches

Public Sub HideTaskbar()
' Cacher la barre des tâches
Dim hWin As Long
hWin = GetTaskbarHWND()
SetWindowPos hWin, 0, 0, 0, 0, 0, &H80
End Sub

Public Sub ShowTaskbar()
' Afficher la barre des tâches
Dim hWin As Long
hWin = GetTaskbarHWND()
SetWindowPos hWin, 0, 0, 0, 0, 0, &H40
End Sub