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