Comment créer un raccourci avec VB.net

Bonjour, Voila !
----------------------------------------Code-------------------------------------------
Dim Bureau As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshShortcut
Dim VarTrav As String

Bureau = New IWshRuntimeLibrary.WshShell

' Chemin et nom du raccourci
VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop &_ "\NomDeMonRaccourci.lnk"
Raccourci = Bureau.CreateShortcut(VarTrav)

' Cible
Raccourci.TargetPath = "C:\MonRepertoire\MonExecutable.exe"

' Icône
Raccourci.IconLocation = "D:\MonRepertoire\ico\MonIcone.ico"

' Enregistrement
Raccourci.Save()
----------------------------------------------------------------------------------------

la meme
c'est vraiment important