Combo的使用双击自动切换内容

在一个Combo组件中设置几个值，在使用的时候如何设置双击事件，使双击combo框的时候，框里面的内容会自动切换

 Private Sub Combo1_DblClick()
if Combo1.ListIndex <> Combo1.ListCount - 1 Then
Combo1.Text = Combo1.List(Combo1.ListIndex + 1)
else
Combo1.Text = Combo1.List(0)
End If
End Sub