buttons y text box

[JoseTejada]

Bueno me dio mucho gusto haberte ayudado, y espero que esto te sirva. Bueno, en el código anterior había solo un textbox llamado TxTcontenido ahora hay 2 llamados TxTcontenido1 y TxTcontenido2, el resto de controles tiene el mismo nombre. Cheka este código y dime si es lo que buscabas, y si no es también avisame para no quedarme con la dudex :D...Aioz:

Código HTML:

Public Class Form1
    Public s As String = ""
    Public swTxT1 As Boolean = True
    Public swTxT2 As Boolean = False
    Public obj As Object
    Private Sub Boton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton1.Click
        s = obj.Text
        s += Boton1.Text
        obj.Text = s
    End Sub

    Private Sub Boton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton2.Click
        s = obj.Text
        s += Boton2.Text
        obj.Text = s
    End Sub

    Private Sub Boton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton3.Click
        s = obj.Text
        s += Boton3.Text
        obj.Text = s
    End Sub

    Private Sub Boton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton4.Click
        s = obj.Text
        s += Boton4.Text
        obj.Text = s
    End Sub

    Private Sub TxTcontenido1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxTcontenido1.Click
        swTxT1 = True
        swTxT2 = False
        obj = TxTcontenido1
    End Sub

    Private Sub TxTcontenido2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxTcontenido2.Click
        swTxT1 = False
        swTxT2 = True
        obj = TxTcontenido2
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If swTxT1 = True And swTxT2 = False Then
            obj = TxTcontenido1
        ElseIf swTxT2 = True And swTxT1 = False Then
            obj = TxTcontenido2
        End If
    End Sub
End Class