如代码
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")t1.text = t1.text & vbcrlf & t2.textt1.WriteValue