Why won't this work??

[hipopony66]

I can't get it to go the next item in the list like it should. The two IF statements are there because occasionally, the counter will skip "00:01" or "00:00" and if it skips "00:00" it will start to count back up, so it will have to hit on "00:01" again. This makes sure the counter ENDS. So here's the code:

'Load file information to player
Let Songtitle = "*** " & ListView2.SelectedItem.Text & " ***"
Let bitrate = ListView2.SelectedItem.SubItems(3) & " KBPS"
Let Frequency = ListView2.SelectedItem.SubItems(4) & " KHZ"
Let counter = ListView2.SelectedItem.SubItems(1)
 origTime = Now()
    songTime = "00:" & counter
    counter.Caption = Format$(songTime, "n:ss")
Timer1.Enabled = True

''start playing''''
ActiveMovie1.Filename = ListView2.SelectedItem.SubItems(2) & "\" & ListView2.SelectedItem.Text
ActiveMovie1.AutoStart = True
If counter = "00:00" Then
ListView2.ListItems(ListView2.SelectedItem.Index + 1).Selected = True
Do
Loop
End If

If counter = "00:01" Then
ListView2.ListItems(ListView2.SelectedItem.Index + 1).Selected = True
Do
Loop



End If 

Any help appreciated.