你panel的停靠,要设置成bottom。
或者改代码
If e.Form.Width <700 Then e.Form.SetBounds(e.Form.BaseForm.Left,e.Form.BaseForm.Top,1000,528)Else e.Form.SetBounds(e.Form.BaseForm.Left,e.Form.BaseForm.Top,500,528)End If