Public Module DoPingAsyncArea
 
        Private mArrayIP(0) As String
        Private mArrayNrIP As Integer = -1
        Private mArrayDelay(0) As Long
        Private mArrayNrDelay As Integer = -1
 
        Public Sub StartTestPingArea(ByRef arrayIP() As String, ByRef _
          arrayDelay() As Long, Optional ByVal timeout As Integer = 8000)
            Dim pingAreaTest As New PingAsyncArea
            pingAreaTest.StartTestArea(timeout)
            Threading.Thread.Sleep(timeout)
            Array.Resize(mArrayIP, mArrayIP.Length - 1)
            Array.Resize(arrayIP, mArrayIP.Length)
            mArrayIP.CopyTo(arrayIP, 0)
            Array.Resize(mArrayDelay, mArrayDelay.Length - 1)
            Array.Resize(arrayDelay, mArrayDelay.Length)
            mArrayDelay.CopyTo(arrayDelay, 0)
        End Sub
 
        Public Sub StartTestPingArea(ByRef arrayIP() As String, ByRef _
          arrayDelay() As Long, ByVal n1Start As Integer, ByVal n1End As _
          Integer, Optional ByVal timeout As Integer = 8000)
            Dim pingAreaTest As New PingAsyncArea
            pingAreaTest.StartTestArea(n1Start, n1End, timeout)
            Threading.Thread.Sleep(timeout)
            Array.Resize(mArrayIP, mArrayIP.Length - 1)
            Array.Resize(arrayIP, mArrayIP.Length)
            mArrayIP.CopyTo(arrayIP, 0)
            Array.Resize(mArrayDelay, mArrayDelay.Length - 1)
            Array.Resize(arrayDelay, mArrayDelay.Length)
            mArrayDelay.CopyTo(arrayDelay, 0)
 
        End Sub
 
        Public Sub StartTestPingArea(ByRef arrayIP() As String, ByRef _
          arrayDelay() As Long, ByVal n1Start As Integer, ByVal n1End As _
          Integer, ByVal n2Start As Integer, ByVal n2End As Integer, Optional _
          ByVal timeout As Integer = 8000)
            Dim pingAreaTest As New PingAsyncArea
            pingAreaTest.StartTestArea(n1Start, n1End, n2Start, n2End, timeout)
            Threading.Thread.Sleep(timeout)
            Array.Resize(mArrayIP, mArrayIP.Length - 1)
            Array.Resize(arrayIP, mArrayIP.Length)
            mArrayIP.CopyTo(arrayIP, 0)
            Array.Resize(mArrayDelay, mArrayDelay.Length - 1)
            Array.Resize(arrayDelay, mArrayDelay.Length)
            mArrayDelay.CopyTo(arrayDelay, 0)
        End Sub