A.Private Sub List1_Click() Labell.Caption=List1.ListIndex End Sub B.Private Sub List1_Click() Labell.Name=List1.ListIndex End Sub C.Private Sub List1_Click() Labell.Name=List1.Text End Sub D.Private Sub List1_Click() Labell. Caption=List1.Text End Sub