Public Class bclock
    Dim bin As String
    Dim x, den, y, vis(1) As Integer
    vis(0)=1
    vis(1)=1
    Dim c As Object
    Sub upd(ByVal rname, ByVal part, ByVal lname)
        For Each c In Me.Controls
            If c.Name = "rd" & rname & x & "p" & part Then
                If lname.Text(x) = "1" Then
                    c.Checked = True
                Else
                    c.checked = False
                End If
            End If
        Next
    End Sub
    Sub loop(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
    Sub main()
        For x = 0 To 5
            den = Val(TimeString.Replace(":", "")(x))
            For Each c In Me.Controls
                If c.Name = "n" & x & "p0" Then
                    c.Text = den
                End If
            Next
            For Each c In Me.Controls
                If c.Name = "n" & x & "p1" Then
                    If den = 0 Then
                        bin = "0000"
                    End If
                    Do Until den = 0
                        bin = den Mod 2 & bin
                        den = den \ 2
                    Loop
                    Do Until bin.Length = 4
                        bin = 0 & bin
                    Loop
                    c.Text = bin
                    bin = ""
                End If
            Next
        Next
        For x = 0 To 3
            For y = 0 to 5
                upd(y, n & y & p1)
            Next
        Next
    End Sub
    Private Sub btnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnd.Click
        If vis(0) = 0 Then
            loop("p0", True, 0, 1)
        Else
            loop("p0", False, 0, 0)
        End If
    End Sub
    Private Sub btnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnb.Click
        If vis(1) = 0 Then
            loop("p1", True, 1, 1)
        Else
            loop("p1", False, 1, 0)
        End If
    End Sub
End Class