ToolTip with Date info

Sure. Just create a function to set the control's ToolTipText property to the current date/time:

Private Sub SetToolTipToDate(ctl As Control)
ctl.ToolTipText = Format(Now, "General Date")
End Sub

Then call that function from any control's MouseMove event:

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Call SetToolTipToDate(Text1)
End Sub