Public Class RegisterShort

    Public Function Btn4() As Integer
        Return Convert.ToInt16(b4.Text)
    End Function

    Public Function Btn3() As Integer
        Return Convert.ToInt16(b3.Text)
    End Function

    Public Function Btn2() As Integer
        Return Convert.ToInt16(b2.Text)
    End Function

    Public Function Btn1() As Integer
        Return Convert.ToInt16(b1.Text)
    End Function

    Public Function Btn0() As Integer
        Return Convert.ToInt16(b0.Text)
    End Function



    Private Sub b4_Click(sender As Object, e As EventArgs) Handles b4.Click
        If b4.Text = 0 Then
            b4.Text = 1
        Else
            b4.Text = 0
        End If
    End Sub

    Private Sub b3_Click(sender As Object, e As EventArgs) Handles b3.Click
        If b3.Text = 0 Then
            b3.Text = 1
        Else
            b3.Text = 0
        End If
    End Sub

    Private Sub b2_Click(sender As Object, e As EventArgs) Handles b2.Click
        If b2.Text = 0 Then
            b2.Text = 1
        Else
            b2.Text = 0
        End If
    End Sub

    Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
        If b1.Text = 0 Then
            b1.Text = 1
        Else
            b1.Text = 0
        End If
    End Sub

    Private Sub b0_Click(sender As Object, e As EventArgs) Handles b0.Click
        If b0.Text = 0 Then
            b0.Text = 1
        Else
            b0.Text = 0
        End If
    End Sub
End Class