How to create shortcut icon in vb.net

oWScriptShell = CreateObject("WScript.Shell")

'Read desktop path using WshSpecialFolders object
sStartMenuPath = Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)

If Not String.IsNullOrEmpty(oTaskStruct.StartMenuDirectoryPath) Then
sFolders = MenuDirectoryPath.Split("\")
sFolderPath = sStartMenuPath
For Each sFolder As String In sFolders
sFolderPath = Path.Combine(sFolderPath, sFolder)

If Not Directory.Exists(sFolderPath) Then
Directory.CreateDirectory(sFolderPath)
End If
Next
End If

' Create a shortcut object on the desktop
oShortcut = oWScriptShell.CreateShortcut(Path.Combine(Path.Combine(sStartMenuPath, MenuDirectoryPath), LinkName & ".lnk"))

' Set shortcut object properties and save it
oShortcut.TargetPath = oWScriptShell.ExpandEnvironmentStrings(Path.Combine(ShortcutIconExePath, ShortcutIconExeName))

oShortcut.WorkingDirectory = oWScriptShell.ExpandEnvironmentStrings(ShortcutIconExePath)
oShortcut.WindowStyle = 4

'Use this next line to assign a icon other then the default icon for the exe
'MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("path to a file with an embeded icon", icon index number)
'Save the shortcut
oShortcut.Save()