Public Class frmDl Dim x As Single = 0 Dim y As Single = 0 Private Sub frmDl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load x = Me.Width y = Me.Height setTag(Me) End Sub '递归取控件的原始大小和位置,用tag来纪录 Private Sub setTag(