Create shortcut of an exe or a file on desktop VB.NET

Public Sub create_shortcut()
        Dim wsh As Object = CreateObject("WScript.Shell")

        wsh = CreateObject("WScript.Shell")

        Dim MyShortcut, DesktopPath

        ' Read desktop path using WshSpecialFolders object

        DesktopPath = wsh.SpecialFolders("Desktop")

        ' Create a shortcut object on the desktop

        MyShortcut = wsh.CreateShortcut(DesktopPath & "\XXXXX.lnk")

        ' Set shortcut object properties and save it

        MyShortcut.TargetPath = wsh.ExpandEnvironmentStrings("C:\XXX.TXT")

        MyShortcut.WorkingDirectory = wsh.ExpandEnvironmentStrings("C:\")

        MyShortcut.WindowStyle = 4

        'Use this next line to assign a icon other then the default icon for the exe

        MyShortcut.IconLocation = "%SystemRoot%\system32\SHELL32.dll,44"

        'Save the shortcut

        MyShortcut.Save()

    End Sub