RT小弟在此先谢过了!

解决方案 »

  1.   

    更改窗体的BorderStyle属性即可.
    --------------------------------------------------------------------BordeerStyle=3
      

  2.   

    打错了~~
    wwh999(一手人民币,一手摸^^) 答案可行~~
      

  3.   

    更改MaxButton和MinButton 属性
      

  4.   

    更改MaxButton和MinButton 属性然后在From_load和From_ReSize
    里面设置From的高和宽就OK了
    from.height=XXX
    from.width=XXX
      

  5.   

    或者 '禁止最大化
     Dim hMenu As Long, Success As Long
         
         hMenu = GetSystemMenu(hwnd, 0)
         Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
         Dim xl As Long
         
         Me.Show
         xl = GetWindowLong(hwnd, GWL_STYLE)
         xl = xl And (Not WS_MAXIMIZEBOX)
         SetWindowLong hwnd, GWL_STYLE, xl