如何在VB.Net中使窗体出现在Windows10的所有桌面上？

Imports System.Windows.Forms

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 设置窗体样式为ToolWindow，这样窗体将不会在任务栏上显示
    Me.FormBorderStyle = FormBorderStyle.FixedToolWindow

    ' 设置窗体的TopMost属性为True，这样窗体将始终显示在其他窗体之上
    Me.TopMost = True

    ' 设置窗体的父窗口为桌面窗口
    Dim desktopHandle As IntPtr = NativeMethods.GetDesktopWindow()
    NativeMethods.SetParent(Me.Handle, desktopHandle)

    ' 设置窗体的位置和大小，使其覆盖整个桌面
    Dim desktopRect As NativeMethods.RECT
    NativeMethods.GetWindowRect(desktopHandle, desktopRect)
    Me.Location = New Point(desktopRect.Left, desktopRect.Top)
    Me.Size = New Size(desktopRect.Right - desktopRect.Left, desktopRect.Bottom - desktopRect.Top)
End Sub

Private Class NativeMethods
    <DllImport("user32.dll", SetLastError:=True)>
    Public Shared Function GetDesktopWindow() As IntPtr
    End Function

    <DllImport("user32.dll", SetLastError:=True)>
    Public Shared Function SetParent(hWndChild As IntPtr, hWndNewParent As IntPtr) As IntPtr
    End Function

    <DllImport("user32.dll", SetLastError:=True)>
    Public Shared Function GetWindowRect(hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    End Function

    Public Structure RECT
        Public Left As Integer
        Public Top As Integer
        Public Right As Integer
        Public Bottom As Integer
    End Structure
End Class