下面的代码,请写到控件的TextChanged事件去
Forms("窗口1").Controls("TextBox1").text = e.Form.Controls("TextBox1").text
Forms("窗口1").Controls("TextBox1").WriteValue