funciones combo box

[elbano66]

Nose si sera por esto
Private Sub vaciar()
cont = Combo7.ListCount - 1
For x = cont To 0 Step -1
Combo7.RemoveItem x

Next

End Sub



Private Sub vaciar1()
cont = Combo8.ListCount - 1
For x = cont To 0 Step -1
Combo8.RemoveItem x

Next
End Sub




Private Sub vaciar2()
cont = Combo7.ListCount - 1
For x = cont To 0 Step -1
Combo8.RemoveItem x

Next
End Sub


sera el problema de hay lo e intentado de varias forma y no me toma las rutas