subscript out of range.... what am i doing wrong?

[penagate]

Please, indent your code ...

I presume you have populated the array first before you click Display. I'm not sure what your Index variable is for but you could just use UBound instead.

Private Sub CmdDisplay_Click()
Dim i As Long
    lstNumbers.Clear
    For i = 0 To UBound(Numbers)
        lstNumbers.AddItem Numbers(i)
    Next i
End Sub

[oldmcgroin]

Please, indent your code ...

lol sorry, will do.

i have populated the array. i tried your code and it stops the erro messagwe although all the numbers in the display are now zero...