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