发表评论(0)作者：, 平台：, 阅读：21312, 日期：2000-03-12

先在声明中加入

Dim myheight, mywidth As Integer


在窗体的LOAD事件中加入

mywidth = Me.Width

myheight = Me.Height


在Resize事件中加入

Me.Height = myheight

Me.Width = mywidth