CODIFICACIÓN DE LOS NÚMEROS DEL 0 AL 9

CODIFICACIÓN DE LOS NÚMEROS DEL 0 AL 9 

NÚMERO "0"

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B0.Click
        If (TextBox1.Text = "0") Then
            Return
        Else
            TextBox1.Text = TextBox1.Text + "0"
        End If
    End Sub

NÚMERO "1"


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click

        TextBox1.Text = TextBox1.Text + "1"
       
    End Sub

NÚMERO "2"


 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click
        TextBox1.Text = TextBox1.Text + "2"
    End Sub


NÚMERO "3"


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click
        TextBox1.Text = TextBox1.Text + "3"
    End Sub


NÚMERO "4"


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click
        TextBox1.Text = TextBox1.Text + "4"
    End Sub


NÚMERO "5"


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
        TextBox1.Text = TextBox1.Text + "5"
    End Sub


NÚMERO "6"


Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
        TextBox1.Text = TextBox1.Text + "6"
    End Sub


NÚMERO "7"


Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click
        TextBox1.Text = TextBox1.Text + "7"
    End Sub


NÚMERO "8"


Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B8.Click
        TextBox1.Text = TextBox1.Text + "8"
    End Sub


NÚMERO "9"


Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B9.Click
        TextBox1.Text = TextBox1.Text + "9"
    End Sub