Buongiorno ragazzi,

avrei bisogno di qualche consiglio per inserire un collegamento alla mia applicazione nel menu start. Sono riuscito a creare un collegamento al Desktop con questo codice:

codice:
Dim sShortcutPath As String, sExtension As String 
Dim fs As New FileSystemObject 
Dim oShell As New WshShell 
Dim Desk As String = My.Computer.FileSystem.SpecialDirectories.Desktop 

sShortcutPath = Desk 

If sShortcutPath <> "" Then 
sExtension = fs.GetExtensionName(sShortcutPath) 

Select Case sExtension 
   Case "lnk" 
      Dim oShortcut As WshShortcut oShortcut = oShell.CreateShortcut(sShortcutPath) 
   Case "url" 
      Dim oURLShortcut As WshURLShortcut oURLShortcut oShell.CreateShortcut(sShortcutPath) 
   Case Else 
      MsgBox("Si è verificato un errore nel tentativo di creare il collegamento.",   MsgBoxStyle.Critical) 
      Exit Sub 
End Select 
End If
Ma non riesco a fare la stessa cosa con il menu start.
Come potrei fare?

Grazie