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