Запретить группировку окон в панели задач

Imports Microsoft.WindowsAPICodePack.Taskbar
...
TaskbarManager.Instance.SetApplicationIdForSpecificWindow(Handle, "Уникальный ID")

Imports System.Runtime.InteropServices
    Declare Function SetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (<MarshalAs(UnmanagedType.LPWStr)> ByVal appid As String) As Integer
 
    Private Sub Form2_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        SetCurrentProcessExplicitAppUserModelID("new id")
    End Sub

Imports System.Runtime.InteropServices
 
Public Class ssss
    Structure PROPERTYKEY
        Dim fmtid As Guid
        Dim pid As UInt32
    End Structure
    Public Interface IPropertyStore
        Sub GetCount(ByRef cProps As UInt32)
        Sub GetAt(ByVal iProp As UInt32, ByRef pkey As PROPERTYKEY)
        Sub GetValue(ByRef key As PROPERTYKEY, ByVal pv As Object)
        Sub SetValue(ByRef key As PROPERTYKEY, ByRef pv As Object)
        Sub Commit()
    End Interface
    Public Class PropertyStore
        Implements IPropertyStore
 
        Public Sub Commit() Implements IPropertyStore.Commit
 
        End Sub
 
        Public Sub GetAt(ByVal iProp As UInteger, ByRef pkey As PROPERTYKEY) Implements IPropertyStore.GetAt
 
        End Sub
 
        Public Sub GetCount(ByRef cProps As UInteger) Implements IPropertyStore.GetCount
 
        End Sub
 
        Public Sub GetValue(ByRef key As PROPERTYKEY, ByVal pv As Object) Implements IPropertyStore.GetValue
 
        End Sub
 
        Public Sub SetValue(ByRef key As PROPERTYKEY, ByRef pv As Object) Implements IPropertyStore.SetValue
 
        End Sub
    End Class
    '<DllImport("shell32.dll", SetLastError:=True)>
    'Private Function SHGetPropertyStoreForWindow(ByVal handle As IntPtr, ByRef riid As Guid, ByRef propertyStore As IPropertyStore) As UInt32
    'End Function
    Declare Function SHGetPropertyStoreForWindow Lib "shell32" (ByVal handle As IntPtr, ByRef riid As Guid, ByRef propertyStore As IPropertyStore) As UInt32
 
 
    '    ' 20140804 support disable of edge swipes when run fullscreen in windows 8
 
    ' name = System.EdgeGesture.DisableTouchWhenFullscreen
    ' shellPKey = PKEY_EdgeGesture_DisableTouchWhenFullscreen
    ' formatID = 32CE38B2-2C9A-41B1-9BC5-B3784394AA44
 
 
    Public Shared Sub SetAppID(hWnd As IntPtr, iAppID As Integer)
        ' name = System.EdgeGesture.DisableTouchWhenFullscreen
        ' shellPKey = PKEY_EdgeGesture_DisableTouchWhenFullscreen
        ' formatID = 32CE38B2-2C9A-41B1-9BC5-B3784394AA44
 
        Dim g As Guid = New Guid("32CE38B2-2C9A-41B1-9BC5-B3784394AA44")
 
        Dim PropStore As IPropertyStore = New PropertyStore
        Dim rc As UInt32 = SHGetPropertyStoreForWindow(hWnd, g, PropStore)
 
        ' 0x80004002    E_NOINTERFACE    No such interface supported
        ' S_OK    Operation successful    0x00000000
        'MsgBox(rc)
        If (rc = 0) Then
            Dim PKEY_EdgeGesture_DisableTouchWhenFullscreen As New PROPERTYKEY
            PKEY_EdgeGesture_DisableTouchWhenFullscreen.fmtid = New Guid("32CE38B2-2C9A-41B1-9BC5-B3784394AA44")
            PKEY_EdgeGesture_DisableTouchWhenFullscreen.pid = 2
            Dim bVal As Boolean = True
            PropStore.SetValue(PKEY_EdgeGesture_DisableTouchWhenFullscreen, bVal)
 
        End If
    End Sub
End Class

    <DllImport("shell32.dll", SetLastError:=True)>
    Private Function SHGetPropertyStoreForWindow(ByVal handle As IntPtr, ByRef riid As Guid, ByRef propertyStore As IPropertyStore) As UInt32
    End Function

    Declare Function SHGetPropertyStoreForWindow Lib "shell32" (ByVal handle As IntPtr, ByRef riid As Guid, ByRef propertyStore As IPropertyStore) As UInt32

Imports System.Runtime.InteropServices
Imports System.Runtime.CompilerServices
 
Public Class ChAppUserModelID
    <StructLayout(LayoutKind.Sequential, Pack:=4)>
    Public Structure PropertyKey
        Public Sub New(guid As Guid, pid As UInt32)
            fmtid = guid
            Me.pid = pid
        End Sub
        <MarshalAs(UnmanagedType.Struct)>
        Public fmtid As Guid
        Public pid As UInteger
    End Structure
 
    <StructLayout(LayoutKind.Explicit)>
    Public Structure PropVariant
        <FieldOffset(0)>
        Public vt As Short
        <FieldOffset(8)>
        Public _ptr As IntPtr
    End Structure
 
    <ComImport, Guid("886D8EEB-8CF2-4446-8D02-CDBA1DBDCF99"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    Interface IPropertyStore
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
        Sub GetCount(<Out> ByRef cProps As UInteger)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
        Sub GetAt(<[In]> iProp As UInteger, ByRef pkey As PropertyKey)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
        Sub GetValue(<[In]> ByRef key As PropertyKey, ByRef pv As PropVariant)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
        Sub SetValue(<[In]> ByRef key As PropertyKey, <[In]> ByRef pv As PropVariant)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
        Sub Commit()
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)>
        Sub Release()
    End Interface
 
    <DllImport("shell32.dll", SetLastError:=True)>
    Private Shared Function SHGetPropertyStoreForWindow(handle As IntPtr, ByRef riid As Guid, ByRef propertyStore As IPropertyStore) As Integer
    End Function
 
    Public Shared Sub ChID(ByVal hwnd As IntPtr, nid As String)
        Dim pPropStore As IPropertyStore = Nothing
        Dim hr As Integer
        hr = SHGetPropertyStoreForWindow(hwnd, New Guid("886d8eeb-8cf2-4446-8d02-cdba1dbdcf99"), pPropStore)
        'MsgBox(hr)
        If hr = 0 Then
            Dim propKey As New PropertyKey
            propKey.fmtid = New Guid("9F4C2855-9F79-4B39-A8D0-E1D42DE1D5F3")
            propKey.pid = 5
            Dim var As New PropVariant
            var.vt = 31US
            var._ptr = Marshal.StringToCoTaskMemUni(nid)
            pPropStore.SetValue(propKey, var)
            Marshal.FinalReleaseComObject(pPropStore)
        End If
    End Sub
End Class