<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