'vb.net 快捷启动栏 添加 本程序快捷图标 【锁定到任务栏】

Imports Shell32 '首先引用Microsoft Shell Controls And Automation
Imports System.IO
Public Class Form1

    Public Shared Function LockApp(ByVal isLock As Boolean, ByVal appPath As String) As Boolean
        Dim shell As New Shell32.Shell
        Dim folder As Folder = shell.NameSpace(Path.GetDirectoryName(appPath))
        Dim app As FolderItem = folder.ParseName(Path.GetFileName(appPath))
        Dim sVerb As String = If(isLock, "锁定到任务栏(&K)", "从任务栏脱离(&K)")

        For Each Fib As FolderItemVerb In app.Verbs()
            If Fib.Name = sVerb Then
                Fib.DoIt()
                Return True
            End If
        Next
        Return False
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim appPath As String = Application.ExecutablePath
        If LockApp(True, appPath) Then
            MsgBox("锁定程序成功")
        Else
            MsgBox("锁定程序失败")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim appPath As String = Application.ExecutablePath
        If LockApp(False, appPath) Then
            MsgBox("解锁程序成功")
        Else
            MsgBox("解锁程序失败")
        End If
    End Sub
End Class