C) Private Sub List1_Click()　Label1.Name = List1.Text　　End SubD)PrivateSubList1_Click()  Label1.Caption = List1.Text　End S