Merhaba 

From üzerinde tarih formatına ayarlı metin kutusuna çift tıklama ile bilgisayar saatini yazdırmak mümkün olur mu?

Private Sub tarih_DblClick(Cancel As Integer)
Me.tarih = Now()
End Sub

olayi ile gune ait saatle beraber olusturulur. Sadece saatle sonucu msgbox format([tarih],"hh: nn: ss") ile alabilirsiniz.

teşekkürler dsezgin.