先将窗体的BorderStyle属性设置为None再添加如下代码
Option ExplicitPrivate Sub Form_Load()
    Me.Move 0, 0, Screen.Width, Screen.Height
End Sub

解决方案 »

  1.   

    这么复杂?
    将窗体的BorderStyle属性设置为None后
    再将windowstate设为2就可以了
      

  2.   

    with form
    borderstyle=0
    windowstate=2
    end with
    form_load()
    SetWindowPos FormhWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
      

  3.   

    关键是蓝色的tittl条怎么消掉
      

  4.   

    去掉TITLE条嘛,把FORM的CONTROLBAR属性关掉就可以了啊
      

  5.   

    Form1.ControlBox = False
    Form1.windowstate =2 
      

  6.   

    Private Sub Form_Load()
        '在属性框将ControlBox 设为False
        Me.Caption = ""
        Me.BorderStyle = 0 '无边框
        Me.WindowState = vbMaximized '最大化
    End Sub