Prova così:
codice:Dim str As String = TextBox1.Text Dim sNew As String = String.Empty For Each c As String In str sNew = sNew + c + Chr(13) Next Label1.Anchor = AnchorStyles.Bottom Label1.Text = sNew![]()
Prova così:
codice:Dim str As String = TextBox1.Text Dim sNew As String = String.Empty For Each c As String In str sNew = sNew + c + Chr(13) Next Label1.Anchor = AnchorStyles.Bottom Label1.Text = sNew![]()