Закрепить ярлык на панеле задач

 Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim Icon2 As Icon = Icon.ExtractAssociatedIcon("E:\FromE\VB2008\MyScreenShot\Sing.ico")
        Me.Icon = Icon2
        Me.ShowInTaskbar = True
    End Sub

Imports System.IO
Imports Shell32
'...
  Sub PinUnpinTaskBar(ByVal filePath As String, ByVal pin As Boolean)
        If Not File.Exists(filePath) Then
            Throw New FileNotFoundException(filePath)
        End If
 
        Dim shellApplication As Shell = New ShellClass()
 
        Dim path As String = System.IO.Path.GetDirectoryName(filePath)
        Dim fileName As String = System.IO.Path.GetFileName(filePath)
 
        Dim directory As Folder = shellApplication.NameSpace(path)
        Dim link As FolderItem = directory.ParseName(fileName)
 
        Dim verbs As FolderItemVerbs = link.Verbs()
        For i As Integer = 0 To verbs.Count - 1
            Dim verb As FolderItemVerb = verbs.Item(i)
            Dim verbName As String = verb.Name.Replace("&", String.Empty).ToLower()
            If (pin AndAlso verbName.Equals("закрепить на панели задач")) OrElse (Not pin AndAlso verbName.Equals("открепить от панели задач")) Then
                verb.DoIt()
            End If
        Next i
 
        shellApplication = Nothing
    End Sub

PinUnpinTaskBar("C:\Program Files (x86)\Drakensang Online\thinclient.exe", True) ' закрепить
 PinUnpinTaskBar("C:\Program Files (x86)\Drakensang Online\thinclient.exe", False) ' открепить

PinUnpinTaskBar("C:\Program Files (x86)\Drakensang Online\thinclient.exe", True) ' закрепить

Class SurroundingClass
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True, BestFitMapping:=False, ThrowOnUnmappableChar:=True)>
    Private Shared Function LoadLibrary(ByVal lpLibFileName As String) As IntPtr
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True, BestFitMapping:=False, ThrowOnUnmappableChar:=True)>
    Private Shared Function LoadString(ByVal hInstance As IntPtr, ByVal wID As UInteger, ByVal lpBuffer As StringBuilder, ByVal nBufferMax As Integer) As Integer
 
    Public Shared Function PinUnpinTaskbar(ByVal filePath As String, ByVal pin As Boolean) As Boolean
        If Not File.Exists(filePath) Then Throw New FileNotFoundException(filePath)
        Dim MAX_PATH As Integer = 255
        Dim actionIndex = If(pin, 5386, 5387)' 5386 is the DLL index for"Pin to Tas&kbar", ref. http://www.win7dll.info/shell32_dll.html
        'uncomment the following line to pin to start instead
        'actionIndex = pin ? 51201 : 51394;
        Dim szPinToStartLocalized As StringBuilder = New StringBuilder(MAX_PATH)
        Dim hShell32 As IntPtr = LoadLibrary("Shell32.dll")
        LoadString(hShell32, CUInt(actionIndex), szPinToStartLocalized, MAX_PATH)
        Dim localizedVerb As String = szPinToStartLocalized.ToString()
        Dim path As String = Path.GetDirectoryName(filePath)
        Dim fileName As String = Path.GetFileName(filePath)
        Dim shellApplication As Object = Activator.CreateInstance(Type.GetTypeFromProgID("Shell.Application"))
        Dim directory As Object = shellApplication.[NameSpace](path)
        Dim link As Object = directory.ParseName(fileName)
        Dim verbs As Object = link.Verbs()
 
        For i As Integer = 0 To verbs.Count() - 1
            Dim verb As Object = verbs.Item(i)
 
            If verb.Name.Equals(localizedVerb) Then
                verb.DoIt()
                Return True
            End If
        Next
 
        Return False
    End Function
End Class