Código VB:
Ver originalPrivate Sub Timer1_Timer()
Me.lblFecha.Caption = Date
Me.LblHr.Caption = Time
End Sub
Con eso logras cargar en 2 labels la fecha y la hr actuales y si el timer le seteas un intervalo de 999 milisegundos x ej, tendras un reloj en el formulario y no solo la fecha u hora estaticos.
Si necesitas sacar el año, mes o dia puedes usar las funciones Year(Date), Month(Date), etc en VB.
Espero te sirva de algo esto, si es que no entendi mal lo que necesitabas...
Salutte!!