Imports System.Runtime.CompilerServices

Public Class Heartbeat

    Sub Heartbeat()
        Dim lMachines As Dictionary(Of Long, SIM).ValueCollection
        Dim lCurrentMachine As Integer
        Dim lRand As Random

        lRand = New Random()
        While (True)
            lMachines = SIM.GetSIMCollection()
            lCurrentMachine = lRand.Next(0, lMachines.Count - 1)
            lMachines.ElementAt(lCurrentMachine)

            Threading.Thread.Sleep(1000 * 60)
        End While

    End Sub

End Class