组合框里面有20行数据，现在需要双击组合框，组合框内数据会依次显示

Private Sub Combo0_DblClick(Cancel As Integer)

If Combo0.ListCount < 1 Then Exit Sub

Dim I As Long
I = Combo0.ListCount
If Combo0.ListIndex < I - 1 Then
Combo0.ListIndex = Combo0.ListIndex + 1
Else
Combo0.ListIndex = 0
End If

End Sub