Программа во весь экран с учетом панели задач (№2)

Imports System.Runtime.InteropServices
 
Public Class Form1
    <DllImport("user32.dll", SetLastError:=True)> Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> Public Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> Public Shared Function FindWindowEx(ByVal parentHandle As IntPtr, ByVal childAfter As IntPtr, ByVal lclassName As String, ByVal windowTitle As String) As IntPtr
    End Function
    <DllImport("user32.dll", EntryPoint:="SetLayeredWindowAttributes")> Public Shared Function SetLayeredWindowAttributes(ByVal hWnd As IntPtr, ByVal crKey As Integer, ByVal alpha As Byte, ByVal dwFlags As Integer) As Boolean
    End Function
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SetParent(Me.Handle, IntPtr.Zero) 'Отвязываемся от рабочего стола
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Форма без рамок на весь экран.
        Me.ControlBox = False : Me.FormBorderStyle = 0 'Убираем элементы управления и рамку
 
        'Me.WindowState = FormWindowState.Maximized 'Не подходит так как разворачивает окно только в пределах рабочей зоны и под панель задач не лезет (а нам это нужно).
 
        'Таки развернём форму на ВЕСЬ экран (в том числе и под панель задач залезем)
        Me.Top = 0
        Me.Left = 0
        Me.Width = 1920
        Me.Height = 1080
 
        'Получим указатель на рабочий стол (и его дочерние окна)
        Dim hWndProgMan As IntPtr = FindWindow("progman", "Program Manager") 'Главное окно рабочего стола
        Dim hWndDefView As IntPtr = FindWindowEx(hWndProgMan, IntPtr.Zero, "SHELLDLL_DefView", vbNullString) ' на этом уровне контекстное меню рабочего стола
        Dim hWndListView As IntPtr = FindWindowEx(hWndDefView, IntPtr.Zero, "SysListView32", "FolderView") ' на этом уровне значки рабочего стола
 
        If hWndListView = 0 Then MsgBox("Не можем найти SysListView32 на его месте - перезагружайте комп.", , "Доигрались!") : End
 
        SetParent(Me.Handle, hWndListView) 'Становимся дочерним окном для SysListView32
 
        MsgBox("До этого момента всё было хорошо, но теперь попробуем сделать форму полупрозрачной.")
 
        'Прозрачность через .Opacity больше не работает
        Me.Opacity = 0.7
 
        'Аналогично и этот вариант прозрачности
        SetLayeredWindowAttributes(Me.Handle, 0, 200, &H2) 'Где 200 это уровень необходимой прозрачности. Может быть от 0 до 255
 
        MsgBox("К сожалению форма больше не имеет возможности стать прозрачной.")
    End Sub
End Class

SetLayeredWindowAttributes(Me.Handle, 0, 200, &H2)