求助VB,使得禁止窗口拉伸的问题

以下做法可以保留最小化按钮：

令窗体的MaxButton属性为False

Private Sub Form_Resize()
If Me.WindowState = 1 Then Exit Sub '防止最小化时出错

If Me.Width <> 8475 Then Me.Width = 8475'Me.Width Me.Height这两个值为最开始窗体的width、height属性值
If Me.Height <> 5310 Then Me.Height = 5310
End Sub

设置form1的BorderStyle 属性为1
设置MinButton 属性为true 就直接可以了

BorderStyle = 1

maxbutton=false
minbutton=false
只省下窗体右上角的关闭按钮.大小化都不可见..大小化无效.