[vb]scadenza data

[Pedar]

credo che questo vada bene:

Private Sub Form_Load()
Dim a As Date, b As Date

a = "12/12/2002"
b = a + Day(30)

Text1.Text = b

End Sub

Ciao Pedar :metallica