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