Untitled

Public Class bclock
    Dim x, d, y, v(1) As Integer, b As String
    Private Sub l(ByVal p)
        v(p) = System.Math.Abs(p - 1)
        For x = 0 To 5
            Me.Controls("n" & x & "p" & p).Visible = CBool(System.Math.Abs(p - 1))
        Next
    End Sub
    Private Sub btnsh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsh.Click
        l(System.Math.Abs(CInt(rd0.Checked)))
    End Sub
    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick
        For x = 0 To 5
            d = Val(TimeString.Replace(":", "")(x))
            Me.Controls("n" & x & "p0").Text = d
            Do Until d = 0
                b = d Mod 2 & b
                d = d \ 2
            Loop
            Me.Controls("n" & x & "p1").Text = Microsoft.VisualBasic.Right("0000" & b, 4)
            b = ""
            For y = 0 To 3
                CType(Me.Controls("rd" & x & y), RadioButton).Checked = CBool(Val(Me.Controls("n" & x & "p1").Text(y)))
            Next
        Next
    End Sub
End Class

useit.com web usability niels jakob