That should be very easy to achieve if you would have tried.
Something like following should work-
Dim _items As New List(Of String)()
Dim _items As New List(Of String)()
Dim maxvalue As Integer = 5
While maxvalue >= 1
Dim tempstr As String = ""
For i As Integer = 1 To maxvalue
tempstr += i.ToString()
Next
_items.Add("tempstr")
maxvalue -= 1
End While
listBox1.DataSource = _items
Hope, it helps :)