窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如，单击如下左图中的"重庆"，则与"北京"交换，得到右图的结果。下面是可实现此功能的程序，请填空。

Private Sub Combo1_Click()
Dim temp
temp=Combo1.Text
______Combo1.List(0):Combo1.List(0)=temp
End sub

“仞”是古代一种长度单位，汉代时一仞是五尺。