Иногда полезно в программе вывести текущую дату / время. этим мы сейчас и займемся 

Чтобы получить текущие дату и время в бейсике существует переменная Now. В ней содержатся текущие дата и время.
Данный код демонстрирует часы в точности до секунды:

Private Sub Timer1_Timer()
Dim S, S1 As String
S = Now
S1 = Mid(S, 11, 9)
Label1.Caption = S1
End Sub

Учтите,что на форму надо поставить элемент Label и timer! и у timer поставить свойство Interval = 1!

Готовый проект «текущие дата и время»:

  chasy.rar (1,1 KiB, 740 hits)

В данном проекте для вырезки именно часов использовался оператор Mid() подробнее как он работает:
Структура оператора: mid (, , )
Например:
есть слово codeserfer и из него надо получить первые 4 буквы, то код будет таким:

mid ("codeserfer", 1, 4)