Someone

Public Class clsHTTP

    Public Delegate Sub Check_URL()

    Dim tmrURL As New System.Timers.Timer()

    Public Sub Wait_For_URL()

        frmMain.status.Items(Index - 1).SubItems(1).Text = "Waiting For URL"

        'Setup our timeout 
        boolData = False
        AddHandler tmrURL.Elapsed, AddressOf Handle_URL_Wait
        tmrURL.Interval = 500
        tmrURL.Enabled = False
        tmrURL.Enabled = True

    End Sub

    'Waits till theirs a url
    Private Sub Handle_URL_Wait(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)

        Dim Checker As Check_URL
        Checker = AddressOf Check_List_Count
        Checker.Invoke()

    End Sub

 
    Public Sub Check_List_Count()

        Debug.Print(frmMain.lstURLs.Items.Count)
 
    End Sub

End Class