不需要特殊的代码，只要调整一下窗口的以下属性即可：
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了嘉鱼免费建站欢迎大家使用！
1。在不调整BorderStyle属性的条件下，即默认为1的情况下：
maxbutton属性为true时，最大化可见并可用。minbutton按钮为true时，最小化按钮可见并可用。
这两个属性设为false时是不可用，但可见，这样就可以让窗口固定大小！运行时也是固定的大小！既不会无意中使其变大，也无法手动使其变大。
此外，如果调整了BorderStyle属性：
1.若BorderStyle属性为0，则无论maxbutton和minbutton如何改变，都不会出现最大化，最小化和关闭按钮。
2.当BorderStyle属性为1，则maxbutton属性为true时，最大化可见并可用。minbutton按钮为true时，最小化按钮可见并可用。当然属性为false时是不可用，但可见。
3.当BorderStyle属性为2，若maxbutton和minbutton按钮同为false时，最大化与最小化同为不可用且不可见。若maxbutton和minbutton按钮任一个为true,另一个为false时，最大化与最小化都可见，但为true属性的可用，false的不可用。当两者同为true时，最大化与最小化皆可见及可用。
4.当BorderStyle属性为3，无论maxbutton与minbutton属性是什么，最大化与最小化都是不可用及不可用。
5.当BorderStyle属性为4，同BorderStyle属性为3时。
6.当BorderStyle属性为5，同BorderStyle属性为3时。
哥们，记得给分阿。
有两种方法实现窗体固定大小
1）设置窗体的BorderStyle属性。如下图。将属性设置为图中红色框出的任意一个值即可实现窗体大小固定不变。
2）编程控制
如果将Form的BorderStyle设置为 2 - Sizeable，通过编程也可以实现窗体固定大小
Option Explicit
Dim frmWidth
Dim frmHeight
Private Sub Form_Load()
'窗体启动时，记录下窗体的宽度和高度
frmWidth = Me.Width
frmHeight = Me.Height
End Sub
Private Sub Form_Resize()
'用户改变窗体大小时，强制窗体大小固定为原始尺寸
'从而达到窗体大小固定目的！
On Error Resume Next
Me.Width = frmWidth
Me.Height = frmHeight
End Sub
把Form的BorderStyle属性设置为3-FixedDialog。
边框类型，即属性中的BorderStyle，这属性用来确定窗体边框的类型。有0-none，1-fixedSingle，2-Sizable，3-fixeddialog，4-fixedtoolwindow，5-sizabletoolwindow。这六种边框类型，其中2-Sizable是VB默认的设置。
VB是微软公司的一种通用程序设计语言，包含在MicrosoftExcel、MicrosoftAccess等众多Windows应用软件种的VBA都使用VB语言，以供用户二次开发；目前制作网页使用较多的VBScript脚本语言也是VB的子集。