I am using this code to create a launch icon on the desktop..

Sub Desktopshortcut()
Dim WSHShell As Object
Dim MyShortcut As Object
Dim DesktopPath As String
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath &
"\EngstoreSpecial.lnk")
With MyShortcut
.TargetPath = LocalPathExcelControlSpecial
.Save
End With
Set WSHShell = Nothing
End Sub

Is it possible to control the symbol so a pre-determined picture icon
can be used?