Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 1000
Me.BackColor = Color.Black
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Now.Second = 0 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = True
F2.Visible = False
F3.Visible = True
F4.Visible = True
F5.Visible = True
F6.Visible = True
F7.Visible = True
End If

If Now.Second = 1 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = False
F2.Visible = False
F3.Visible = False
F4.Visible = False
F5.Visible = False
F6.Visible = True
F7.Visible = True
End If

If Now.Second = 2 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = True
F2.Visible = True
F3.Visible = True
F4.Visible = False
F5.Visible = True
F6.Visible = False
F7.Visible = True
End If

If Now.Second = 3 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = True
F2.Visible = True
F3.Visible = True
F4.Visible = False
F5.Visible = False
F6.Visible = True
F7.Visible = True
End If

If Now.Second = 4 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = False
F2.Visible = True
F3.Visible = False
F4.Visible = True
F5.Visible = False
F6.Visible = True
F7.Visible = True
End If

If Now.Second = 5 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = True
F2.Visible = True
F3.Visible = True
F4.Visible = True
F5.Visible = False
F6.Visible = True
F7.Visible = False
End If

If Now.Second = 6 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = False
F2.Visible = True
F3.Visible = True
F4.Visible = True
F5.Visible = True
F6.Visible = True
F7.Visible = False
End If

If Now.Second = 7 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = True
F2.Visible = False
F3.Visible = False
F4.Visible = False
F5.Visible = False
F6.Visible = True
F7.Visible = True
End If

If Now.Second = 8 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = True
F2.Visible = True
F3.Visible = True
F4.Visible = True
F5.Visible = True
F6.Visible = True
F7.Visible = True
End If

If Now.Second = 9 Then
E1.Visible = True
E2.Visible = False
E3.Visible = True
E4.Visible = True
E5.Visible = True
E6.Visible = True
E7.Visible = True
F1.Visible = True
F2.Visible = True
F3.Visible = False
F4.Visible = True
F5.Visible = False
F6.Visible = True
F7.Visible = True
End If

If Now.Second = 10 Then
E1.Visible = False
E2.Visible = False
E3.Visible = False
E4.Visible = False
E5.Visible = False
E6.Visible = True
E7.Visible = True
F1.Visible = True
F2.Visible = False
F3.Visible = True
F4.Visible = True
F5.Visible = True
F6.Visible = True
F7.Visible = True
End If

If Now.Second = 11 Then
E1.Visible = False
E2.Visible = False
E3.Visible = False
E4.Visible = False
E5.Visible = False
E6.Visible = True
E7.Visible = True
F1.Visible = False
F2.Visible = False
F3.Visible = False
F4.Visible = False
F5.Visible = False
F6.Visible = True
F7.Visible = True
End If

End Sub
End Class