A.Pivate Sub Listl_Click() Label1.Caption:List1.Listlndex List1.Removeltem List1.Text End Sub B.Private Sub Listl_Click() Label1.Name=List1.Listlndex Listl.Removeltem Listl.Text End Sub C.Private Sub List1_Click() Labell.Caption=Listl.Text List1.Removeltem Listl.Listlndex End Sub D.Private Sub List1_Click() Label1.Name=List1.Text List1.Removeltem List1.Listlndex End Sub