[vb]Data in combobox

[dops]

Ciao.. allora:
ho una combobox dove devono venire scritti gli anni ho fatto così e funziona:

Private Sub Form_Load()
Dim miadata, mioanno
miadata = Date
mioanno = Year(miadata)
data.List(0) = mioanno
End Sub


dove praticamente al lancio della form l'indice 0 prende il valore della variabile "mio anno" e cioè 2003.. il problema stà nel fatto che devo inserire altre date, precedenti e successive al 2003... cioè al lancio della form prima del 2003 devono venire scritte le date che partono diciamo dal 1990 ed al nuovo anno deve venire stampato il 2004 (che dovrebbe essere questo se non viene la fine del mondo) e così via..
Qualcuno può aiutarmi?
Ciao

[Gugu]

Io ti aiuterei volentieri ma.. non riesco a capire la tua richiesta!!
Hai scritto questo programma che funziona.. e fin qui ci siamo.
Il passo successivo dovrebbe essere quello di inserire altre date: DOVE??
Negli altri index della tua listbox data??
Tipo:
data.list(0)=1990
data.list(1)=1991
data.list(2)=1992
data.list(3)=1993
data.list(4)=1994
...
data.list(n)=2003
data.list(n+1)=2004

Così??
E poi?? Vuoi visualizzare quella attuale (ora il 2003)?
Da quello che ho capito allora data.list(n) è un combo, non una list.. vero?
Tu vuoi xhe l'index visualizzato sia l'anno corrente.

Provo:
Private Sub Form_Load()
dim a as integer
Dim miadata, mioanno

miadata = Date
mioanno = Year(miadata)
data.clear
for a=1990 to mioanno
data.additem a
next a
data.listindex=data.listcount-1
End Sub