A.Private Sub List1_ Click() Label1.Caption=List1.ListIndexEnd Sub B.Private Sub List1_ Click() Label1.Name=List1.ListIndexEnd Sub C.Private Sub List1_ Click() Label1.Name=List1.TextEnd Sub D.Private Sub List1_ Click() Label1.Caption=List1.TextEnd Sub