Public Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox2.Text = StrReverse(TextBox1.Text)
Label1.Text = "已经输入了：" & TextBox1.TextLength & "字符"
End Sub
End Class


谢谢