showwindow api
showwindow( SW_MAXIMIZED )

解决方案 »

  1.   

    楼主是想运行时才把标题栏去掉??agree to jennyvenus
      

  2.   

    Option Explicit
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const WS_CAPTION = &HC00000                  Private Const GWL_STYLE = (-16)Private Sub Form_Load()
        Dim TempLng As Long
        
        TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
        TempLng = TempLng And Not WS_CAPTION
        SetWindowLong Me.hwnd, GWL_STYLE, TempLng
        
    End Sub
      

  3.   

    设置属性:
    ControlBox = False
    同时Caption为空