heh heh. The first part was easier than I thought it would be. Try this:

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox (List1.ListIndex & ", " & List1.List(List1.ListIndex))
End Sub

it gives a message box with the index and the contents of the item clicked. hmm.

bob