下面是一段窗体内的控件大小可随窗体的大小变化而变的代码,
问题是:在拖动窗体大小变化过程中,始终保持窗体的高和宽的比例?
目前的高宽比是不限制的
Private Sub Form_Load()
  Form1.Height = Screen.Height / 6
  Form1.Width = Screen.Width / 6
End Sub

Private Sub Form_Resize()
Command1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub Command1_Click()
End
End Sub