想了解一下你用的什么操作系统？

我需要Me.BorderStyle=2
而且窗口可以任意改变大小,三按扭齐全,任务栏和菜单栏以及工具栏都正常显示,就是想让窗体把WINDOWS的任务栏给盖掉!

呵呵 开始忘了说了,你设置窗体的MiniButton属性为True就可以得到你想的结果了

上面那几行已经可以把任务栏给覆盖了

大哥，窗体大小不能变了！！！！！！

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_HIDE = 0
Const SW_NORMAL = 1
Dim tWnd As Long
Private Sub Form_Load()
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
tWnd = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow tWnd, SW_HIDE
End Sub
Private Sub Form_Terminate()
ShowWindow tWnd, SW_NORMAL
End Sub

3楼说的方法可以啊 我都试过了不错的  

很多方法～嗨

问题依旧,加载后是把任务栏给覆盖掉了,点最大化按钮后窗体又恢复了原样,盖不住任务栏!