Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	TextBox2.AppendText(TextBox1.Text)
End Sub