Stuff

Public Class bclock
    Dim bin As String
    Dim x, den, y, vis(1) As Integer
    Dim c As Object
    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)
            Else
                lo("p0", False, 0, 0)
            End If
        Else
            If vis(1) = 0 Then
                lo("p1", True, 1, 1)
            Else
                lo("p1", False, 1, 0)
            End If
        End If
    End Sub

    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick
        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 Each c In Me.Controls
            For x = 0 To 5
                For y = 0 To 3
                    If c.Name = "rd" & x & y Then
                        If Me.Controls("n" & x & "p1").Text(y) = "1" Then
                            c.Checked = True
                        Else
                            c.checked = False
                        End If
                    End If
                Next
            Next
        Next
    End Sub
End Class