Sub unPin (strProgLnk) 
   Const App_Data = &H1a 
   Dim oAppDataFolder, strQuickLaunchFolderPath 
   Dim oShell, oFSO, oFolder, oFolderItem, colVerbs, oVerb 
   Set oShell = CreateObject("Shell.Application") 
   Set oFSO = CreateObject("Scripting.FileSystemObject") 
   Set oAppDataFolder = oShell.NameSpace (App_Data) 
   strQuickLaunchFolderPath = oAppDataFolder.Self.Path & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar" 
   If oFSO.FileExists(strQuickLaunchFolderPath & "\" & strProgLnk) Then 
    Set oFolder = oShell.Namespace(strQuickLaunchFolderPath) 
    Set oFolderItem = oFolder.ParseName(strProgLnk) 
    Set colVerbs = oFolderItem.Verbs 
    For Each oVerb in colVerbs 
     'In Explorer's context menu, there is a letter that executes each command 
     'In the verb, this letter is preceded by an ampersand 
     'eg Unpin from Tas&kbar 
     If Replace(oVerb.name, "&", "") = "Unpin from Taskbar" Then 
      oVerb.DoIt 
      Exit For 'Exit from For Each..Next loop on success 
     End If 
    Next 
   End If 
   Set oShell = Nothing 
   Set oFSO = Nothing 
  End Sub 
   
  '*** Example Usage *** 
  unPin "Google Chrome.lnk"