Public Class bclock
    Dim x, vis(1), p, y, den As Integer
    Sub lo(ByVal part, ByVal bool, ByVal visval)
        vis(part) = visval
        For x = 0 To 5
            Me.Controls("n" & x & "p" & part).Visible = bool
        Next
    End Sub
    Private Sub btnsh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsh.Click
        If rd0.Checked = True Then p = 0 Else p = 1
        If vis(p) = 0 Then lo(p, True, 1) Else lo(p, False, 0)
    End Sub
    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick
        For x = 0 To 5
            Dim bin As String = ""
            den = Val(TimeString.Replace(":", "")(x))
            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 = Microsoft.VisualBasic.Right("000" & bin, 4)
            Me.Controls("n" & x & "p1").Text = bin
            For y = 0 To 3
                If Me.Controls("n" & x & "p1").Text(y) = "1" Then CType(Me.Controls("rd" & x & y), RadioButton).Checked = True Else CType(Me.Controls("rd" & x & y), RadioButton).Checked = False
            Next
        Next
    End Sub
End Class