如何让一个窗体拖动也不能改变大小！
如何让一个窗体拖动也不能改变大小！而且最小化不会报错，谢谢各位啦！
[解决办法]
'禁止改变窗体大小
Option Explicit '强制宣告定义变量
Dim OldWidth%, OldHeight% '定义变量
Private Sub Form_Load()
'将窗体居中显示 (屏幕宽度减去窗体的宽度)除以2 , (屏幕高度减去窗体的高度)除以2
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
OldWidth = Me.Width: OldHeight = Me.Height
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 Or Me.WindowState = 2 Then Me.WindowState = 0
If Me.Width <> OldWidth Or Me.Height <> OldHeight Then Me.Width = OldWidth: Me.Height = OldHeight
End Sub
