Visual Basic - MANEJO DE UN CALENDAR

Necesito saber como marcar la fecha actual en un calendario, es decir que cuando yo haga visible el calendario salga seleccionada la fecha actual del sistema, ademas como hacer visible una fecha que este en un text, ejemplo: si yo tengo en un text 1/1/4 que se me muestre en el calendario dicha fecha: (1 de enero de 2004)
Agradezco cualquier ayuda

MIRA TE ACONCEJO QUE ME JOR OCUPES EL OBJETO DTPicker

MICROSOFT WINDOWS COMMON CONTROLS-2 6.0

LUEGO INSERTAS EL OBJETO

PARA DARLE LA FECHA ACTUAL AS OBJETO
COLOCAS

DTPicker = NOW

Y DESPUES PARA CAPTURAR LAS FECHAS HACES LO SGTE

DIM FECHA AS STRING
fecha = Format(DTPicker , "DD/MM/YYYY")

y todo eso es todo

Gracias por el codigo Roberto, era justo lo que estaba buscando (darle el formato al DTPicker) ;-)