Selecting next item in list using a timer

[FaTaLy2k]

My program is selecting an item in a list and exectuing code. This is for entering chatrooms. You add the names of a few different chatrooms and click cycle. This code then cycles through the list until it finds a room on your list that isnt' full.

Now is what i want to do is cycle the room on a 5 min timer. I have the code for cycle every 5 minutes.

My problem is i want the cycle to start at the last room it entered. So if it entered the first room on the list, after 5 minutes i want to start to cycle at the 2nd room on the list and so on.

Here is the code i currently have

code:

StopBust = False
Do: DoEvents

inRoom = BustPrivate(List2.List(0))
If inRoom = False Then
inRoom = BustPrivate(List2.List(1))
End If
If inRoom = False Then
inRoom = BustPrivate(List2.List(2))
End If
If inRoom = False Then
inRoom = BustPrivate(List2.List(3))
End If
If inRoom = False Then
inRoom = BustPrivate(List2.List(4))
End If
Loop Until (inRoom = True) Or (StopBust = True)

end code:

[Eras3r]

make Timer1 interval = 60000 (1 minute)

Private Sub Timer1_Timer()
    Dim i As Long
    Static mins As Long
    Static lngLastRoom As Long
    
    If mins = 4 Then
        mins = 0
        
        If lngLastRoom = List2.ListCount - 1 Then lngLastRoom = -1
        
        Do: DoEvents
            For i = lngLastRoom + 1 To List2.ListCount - 1
                If StopBust Then Exit Do
                
                If BustPrivate(List2.List(i)) Then
                    lngLastRoom = i
                    Exit Do
                End If
            Next i
        Loop
    Else
        mins = mins + 1
    End If
End Sub