单选题 设窗体上有一个名为List1的列表框，并编写下面的事件过程：
Private Sub List1_Click()
Dim ch As String
ch=List1. List(List1, ListIndex)
List1. RemoveItem List1. ListIndex
List1. AddItem ch
End Sub
程序运行时，单击一个列表项，则产生的结果是______。