Public Class bclock
    Dim x, y, den, vis(1) As Integer
    Sub lo(ByVal part, ByVal bool, ByVal visn, ByVal visval)
        vis(visn) = visval
        For x = 0 To 5
            Me.Controls("n" & x & part).Visible = bool
        Next
    End Sub
    Private Sub btnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsh.Click
        If rdden.Checked = True Then
            If vis(0) = 0 Then lo("p0", True, 0, 1)
            If vis(0) = 1 Then lo("p0", False, 0, 0)
        Else
            If vis(1) = 0 Then lo("p1", True, 1, 1)
            If vis(1) = 1 Then lo("p1", False, 1, 0)
        End If
    End Sub
    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick
    Dim bin As String
        For x = 0 To 5
            den = Val(TimeString.Replace(":", "")(x))
            If Me.Controls("n" & x & "p0").Text = den
                If den = 0 Then bin = "0000"
                Do Until den = 0
                    bin = den Mod 2 & bin
                    den = den \ 2
                Loop
                bin = ("000" & bin).Right(4)
                Me.Controls("n" & x & "p1").Text = bin
                bin = ""
            End If
            For y = 0 To 3
                If Me.Controls("n" & x & "p1").Text(y) = "1" Then Me.Controls("rd" & x & y).Checked = True
                If Me.Controls("n" & x & "p1").Text(y) = "0" Then Me.Controls("rd" & x & y).Checked = False
            Next
        Next
    End Sub
End Class