
Public Class Form1
Private Sub txtStringa_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStringa.TextChanged
Dim I As Integer = 0
Dim C As Char = ""
While txtStringa.Text > txtStringa.Text
txtRisultato.Text = txtStringa.Text
End While
End Sub
End Class |
