Collection em vb6

[palmoura]

Boas pessoal,
precisava de uma ajudita. Eu tenho uma Collection em vb6 e precisava do seguinte:

Option Explicit
Private mycolAvailable As New Collection

Private Sub Command1_click()
Dim obj As String
Dim x As Integer, i As Integer

    
    mycolAvailable.Add 1430, "1"
    mycolAvailable.Add 1432, "2"
    mycolAvailable.Add 0, "3"
    mycolAvailable.Add 0, "4"
    mycolAvailable.Add 1436, "5"
    mycolAvailable.Add 1466, "6"
    mycolAvailable.Add 0, "7"
    mycolAvailable.Add 0, "8"
    mycolAvailable.Add 0, "9"
    mycolAvailable.Add 0, "10"


VerificaTimerLivre (6)
x = ProximoTimerLivre()


End Sub


Private Function VerificaTimerLivre(timerindex As String) As Boolean
  If mycolAvailable(timerindex) = 0 Then
      VerificaTimerLivre = True
  Else
      VerificaTimerLivre = False
  End If

End Function

Private Function ProximoTimerLivre() As Integer
  Dim i As Integer

  For i = 1 To 10
    If mycolAvailable(i) = 0 Then
       ProximoTimerLivre = i
       Exit Function
    End If
  Next i
  ProximoTimerLivre = -1
End Function

Onde tenho valores a 0 significa que aquela posicao está livre, eu procuro qual e o proximo que esta livre e o que quero fazer é na posicao que esta livre quero la colocar 1 valor qualquer.
Alguem sabe se isto é possível e como poderei fazer?

Cumpts

 

[palmoura]

Problema resolvido, em vez de collection coloquei uma listbox até para poder ter um controlo visual da coisa.