以下做法可以保留最小化按钮:
令窗体的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 就直接可以了
maxbutton=false
minbutton=false
只省下窗体右上角的关闭按钮.大小化都不可见..大小化无效.
BorderStyle = 1