<DllImport("aygshell.dll")> _
    Friend Shared Function SHFullScreen(ByVal hWnd As IntPtr, ByVal dwState As Integer) As Boolean
    End Function

    Const SHFS_SHOWTASKBAR = &H1 '任务栏
    Const SHFS_HIDETASKBAR = &H2
    Const SHFS_SHOWSIPBUTTON = &H4 '输入法
    Const SHFS_HIDESIPBUTTON = &H8
    Const SHFS_SHOWSTARTICON = &H10 '开始菜单栏
    Const SHFS_HIDESTARTICON = &H20

Private Function FullScreen(ByVal hWnd As IntPtr, ByVal IsFull As Boolean) As Boolean
        Dim dwState As Integer
        dwState = 0
        If IsFull Then
            dwState = SHFS_HIDETASKBAR Or SHFS_HIDESIPBUTTON Or SHFS_HIDESTARTICON
        Else
            dwState = SHFS_SHOWTASKBAR Or SHFS_SHOWSIPBUTTON Or SHFS_SHOWSTARTICON
        End If
        FullScreen = SHFullScreen(hWnd, dwState)
    End Function