Public Class Form1
    Dim time, bin, some_crap As String
    Dim x, den, y As Integer
    Dim c As Object
    Sub rofl()
        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
                    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
                    some_crap = some_crap & bin
                    bin = ""
                End If
            Next
            For Each c In Me.Controls
                If c.Name = "rdhr" & x & "p0" Then

                End If
            Next
        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
        rofl()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rofl()
    End Sub

End Class