Question

Estoy creando un acceso directo a mi aplicación desde VB.net, sin embargo falta una instrucción pues no se está haciendo bien.

Dim WSHShell As Object = CreateObject("WScript.Shell")
Dim DesktopDir As String = CType(WSHShell.SpecialFolders.Item("Desktop"), String)
Dim Shortcut As Object = WSHShell.CreateShortcut(DesktopDir & "\VS-SUPPORT.lnk")    
Shortcut.IconLocation = "explorer.exe, 0"
Shortcut.Save()

¿Qué me falta?

Answer 1

Buenas

Por lo que parece, al menos te falta la ruta destino a la que está dirigida el acceso directo.

faltaría algo del tipo:
Shortcut.TargetPath = "ruta\al\ejecutable\de\la\aplicacion\ejecutable.exe"
Shortcut.Arguments = "parametros que se pasan al ejecutable si se necesitan"
Shortcut.WindowStyle = 1
Shortcut.Description = "Descripcion"

podría quedar algo así:

Dim WSHShell As Object = CreateObject("WScript.Shell")
Dim DesktopDir As String = CType(WSHShell.SpecialFolders.Item("Desktop"), String)
Dim Shortcut As Object = WSHShell.CreateShortcut(DesktopDir & "\VS-SUPPORT.lnk")    
Shortcut.IconLocation = "explorer.exe, 0"
Shortcut.TargetPath = "explorer.exe"
Shortcut.Arguments = c:\\WINDOWS
Shortcut.WindowStyle = 1
Shortcut.Description = "Department"
Shortcut.Save()