Private Sub Form_Resize() Text1.Text = CStr(Width)End Sub
你误会我的意思了 我意思的 拖动窗体 在窗体里的 Text1.text里面会显示 窗体的Left 是跟鼠标动而改变的