[VB6] Textbox e Data

[allejo]

Che cosa non riesci a capire?
Provi a fare passo passo su quello che ho scritto.......
1)Prima di tutto hai messo il componente Microsoft Masked Edit Control?

2)sul form_load metti questo codice

dim gvs_date_mask as string
gvs_date_mask = "##\/##\/####"
msk_NomeMask.Format = gvs_date_format
msk_NomeMask.Mask = gvs_date_mask
msk_data.Text = "__/__/____"
msk_NomeMask = Format(rec!Data, gvs_date_format)

3)Provi

4)E fammi sapere