Oncelikle formumuza 1 tane label, 1 tanede timer ekliyoruz.
Timer ın intervalini 500 olarak ayarlayıp, aşağıdaki kodu yazıyoruz.
(label icin 'courier new' gibi tum karakterlerin aynı boyutta olduğu bir fontu secmenizi tavsiye ederim.)

dim a
Private Sub Timer1_Timer()
if a=0 then Label1.Caption = Time():a=1:goto endsub
if a=1 then Label1.Caption = Time():a=0:goto endsub
endsub:End Sub'
__________________