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