Visual Basic 6 - aiuto in vb6

salve, vorrei fare in modo che inserendo una data in una txt esca in una label la data con 30 giorni in più però non so come fare... Ho provato a fare in modo che aggiungesse 30 alla data di oggi però se siamo al 20 poi come giorno esce 50. come posso fare?? grazie in anticipo!!

devi aggiungere il componente calendar
e poi fare un che viene eseguito tante volte quanti i giorni che vuoi avanzare
nel for dei mettere questo codice
calenda1.nextday
o roba simile

Vuoi aumentare di 30 giorni?
Non è che vuoi solo passare al mese successivo?

In ogni caso...
Se vuoi sommare 30 giorni alla data attuale devi tenere in considerazione: l'anno attuale, il mese attuale e il giorno attuale.

L'anno determina se febbraio è di 28 o 29 giorni (anno bisestile). Dopodiché sai con precisione da quanti giorni è formato ogni mese...

Ti cito cosa dice Wikipedia sugli anni bisestili:
"Un anno è bisestile se il suo numero è divisibile per 4, con l'eccezione che gli anni secolari (quelli divisibili per 100) sono bisestili solo se divisibili per 400."

Quindi prendiamo ad esempio 01/02/2008 .
1) L'anno è bisestile quindi febbraio è di 29 gg.
2) Sommiamo al gg attuale 30 giorni e ci accorgiamo che 1+30=31, quindi finiremo nel mese successivo (marzo) e precisamente al giorno numero: 2.

Adesso dovresti avere le idee più chiare su come procedere...
Se hai problemi fai un fischio.

io ho difficolta proprio in questo perchè non so come fare a stabilire che febraio è di 28 ecc... come posso fare??

te l ho detto aggiungi il componente microsoft calendar, lo metti nel form con visible false

poi usi .nextday per avanzare di un giorno (se è il 31, vai al 1 del meso dopo e se necessario anche dell' anno)
.nextmonth
.nextyear
sempre per avanzare nel tempo

poi .day restituisce o imposta il giorno
.month
.year

in pratica il calendar gestisce lui tt: anno sisestile, giorni dei mesi e altro

si, però io devo avanzare sempre di 30 gg da una data che può variare... ad esempio io inserisco in una textbox 2 e poi in una label mi deve uscire 1 cioè in pratica devo aggiungere 30 gg alla data che viene inserita nella textbox quindi se unso netxtday conta un giorno in più da quello attuale.. non so se mi sono spiegato

devi dare al calendar la data da cui vuoi inziare a contare, quidni splitti la data e assesgni alla proprietà day del calendar il giorno...
splitti
.day=data(0)
.month=data(1)
.year=data(2)

poi fai il for con .nextday per avanzare

poi ricomponi la data .day & "/" & .month ....

In poche righe fai così:

Private Sub Avanza_Click()
For i = 1 To 30
Me.Calendar1.NextDay
Next
End Sub