Public Class Form1
Private InpName As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Do While InpName <> "Done" InpName = TextBox1.Text '("Enter your name or type Done to quit.")
If InpName <> "Done" Then
Label1.Text = InpName
End If
Exit Do
Loop
End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub
End Class


需要的是在textbox输入字符，如果是done 自动退出，如果不是字符显示在label