|
Private Sub List1_Click()
select case List1.ListIndex
case 0
'do things related to entry 0
case 1
'do things related to entry 1
case 2
'do things related to entry 2
end select
End Sub
__________________
Donate Blood!
"Love is not finding the perfect person, but learning to see an imperfect person perfectly." -Sam Keen
|