Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If TextBox1.Text <> "" Then Label1.Text = TextBox1.Text End If End Sub
Private Sub Text1_Change() If Len(Me.Text1.Text) > 0 Then Me.Label1.Caption = "[...]" Else Me.Label1.Caption = "IDLE" End If End Sub