listbox array

[mrnew]

Hi there,

can somebody show me how to retrieve all the items from the listbox for my gethistory sub.

Sub GetHistory(Index As Integer, Msg As String)
Dim a As Integer
 
End Sub

' using Time makes the listbox flicker for some reason, o well

Public Sub AddHistory(Msg As String)
On Error Resume Next
Dim a As Integer
 
List1.AddItem Time & Msg, 0
If List1.ListCount = 11 Then
List1.RemoveItem 10
End If
 
End Sub

[Joacim Andersson]

I'm not sure I understand. Your GetHistory Sub has an argument called Index, shouldn't that be the index of the item you want to retrieve? Anyway, to show each item in a listbox you simply have to loop through it.

Dim i As Integer
For i = 0 To List1.ListCount - 1
    MsgBox List1.List(i)
Next

[mrnew]

was just example code for an online game index is used to identify which player, btw, thanks alot