Agregar Fecha y Reloj digital en nuestro Form

En ocasiones es necesario colocar la fecha en nuestro form, esto es muy sencillo. Para hacer esto requerimos de 2 labels, uno para la fecha y el otro para el reloj, o ocupar uno solo, y concatenar ambos.

Sin concatenar:

        lblHora.Text = Format(Now(), "Long Time")
        lblFecha.Text = Format(Now(), "Long Date")

Concatenado

lblHoraAndDate.Text = Format(Now(), "Long Time") & " | " & Format(Now(), "Long Date")

NOTA: Si queremos tener esto en tiempo real, tenemos que agregar un timer en nuestro form y agregar el codigo dentro del timer, recuerda que debes activar este reloj en su propiedad Enable = True. El intervalo de nuestro Timer debera de ser 1000 ms = 1 segundo.