vb中怎样禁止把窗体拖大拖小?

这样也可:
在窗体模块里定义两个公共变量:
dim meh as integer
dim mew as integer
在form_load()中添加:
meh=me.height
mew = me.width
然后窗体的resize事件如下：
Private Sub Form_Resize()
On Error GoTo minnnn
Me.Height = meh
Me.Width = mew
Exit Sub
minnnn:

End Sub

一种方法是窗体borderstyle属性设为3
另一种在窗替的RESIZE事件里加入以下代码

on error resume next
If Me.WindowState = vbMinimized Then Exit Sub
If Me.Width <>12000 Then Me.Width = 12000
If Me.Height <> 9000 Then Me.Height = 9000

12000和9000根据自己的需要改即可

borderstyle属性设为3

borderstyle属性设为3