Чтобы узнать текущее время можно посмотреть на часы, которые находятся около пуска, или создать свои. Второй вариант нам подходит больше, т.к. зачем смотреть на чужие часы (Билла Гейца), когда можно сделать свои собственные? И этим мы сейчас займемся: Создай новый проект(Standart EXE), на форму кинь текстовое поле и таймер. У таймера свойство Interval будет равным 1(это время, через которое Timer будет обновляться (мл)). На таймер нажми 2 раза, и у тебя появится окно кода с созданной процедурой:

Private Sub Timer1_Timer() 

 End Sub 
 

В ней впиши Text1.Text = Time, здесь текст в текстовом поле будет равен функции Time(текущее время). Вот что у тебя должно получиться:

Private Sub Timer1_Timer() 
 Text1.Text = Time 
 End Sub 
 

Ну вот и все - теперь смотри на свои часы.