Do you mean how do you access the 3rd Item Down from the Visible Top of the Listbox?
Code:
Private Sub Command1_Click()
    If List1.TopIndex + 2 < List1.ListCount Then
        Text1 = List1.List(List1.TopIndex + 2)
    Else
        Text1 = List1.List(List1.ListCount - 1)
    End If
End Sub
Otherwise, if you mean how do you access the 3rd Item Period..
Text1 = List1.List(2)


------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]