Imports IWshRuntimeLibrary
Dim wshShell As New WshShell
Dim desktop As String = wshShell.SpecialFolders.Item("Desktop").ToString()
Dim shortcut As IWshShortcut = CType(wshShell.CreateShortcut(desktop & "\rachit.lnk"), IWshShortcut)
shortcut.TargetPath = ""
Dim strProcess As String = System.Windows.Forms.Application.StartupPath() + "\rachit.exe" '"Program Files\Internet Explorer\iexplore.exe"
Dim strIconPath As String
strIconPath = Path.GetDirectoryName(Application.ExecutablePath) + "\Shanesh.ico"
strIconPath = strIconPath.Replace("bin\Debug", "")
With shortcut
.TargetPath = strProcess
.WindowStyle = 1
.Description = "Open Shanesh with kiosk mode"
.IconLocation = strIconPath
.Save()
End With