Public Class bclock
    Dim time, bin As String
    Dim x, den, y, vis(1) As Integer
    Dim c As Object
    Sub upd(ByVal rname, ByVal part, ByVal lname)
        For Each c In Me.Controls
            If c.Name = 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 main()
        time = TimeString.Replace(":", "")
        For x = 0 To 5
            den = Val(time(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
                        y = den Mod 2
                        den = den \ 2
                        bin = y & bin
                    Loop
                    Do Until bin.Length = 4
                        bin = 0 & bin
                    Loop
                    c.Text = bin
                    bin = ""
                End If
            Next
        Next
        For x = 0 To 3
            upd("rdhr", "0", n0p1)
            upd("rdhr", "1", n1p1)
            upd("rdm", "0", n2p1)
            upd("rdm", "1", n3p1)
            upd("rds", "0", n4p1)
            upd("rds", "1", n5p1)
        Next
    End Sub
    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick
        If Me.Text = "binary clock_" Then
            Me.Text = "binary clock"
        Else
            Me.Text = "binary clock_"
        End If
        main()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        main()
        vis(0) = 1
        vis(1) = 1
    End Sub
    Private Sub btnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnd.Click
        If vis(0) = 0 Then
            vis(0) = 1
            For x = 0 To 5
                Me.Controls("n" & x & "p0").Visible = True
            Next
            btnd.Text = "Hide Denary"
        Else
            vis(0) = 0
            For x = 0 To 5
                Me.Controls("n" & x & "p0").Visible = False
            Next
            btnd.Text = "Show Denary"
        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
            vis(1) = 1
            For x = 0 To 5
                Me.Controls("n" & x & "p1").Visible = True
            Next
            btnb.Text = "Hide Binary"
        Else
            vis(1) = 0
            For x = 0 To 5
                Me.Controls("n" & x & "p1").Visible = False
            Next
            btnb.Text = "Show Binary"
        End If
    End Sub
End Class