A.Private Sub List1_Click()Labell.Caption=List.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=List.Text End Sub