Module modMain
 
    Dim WithEvents clsTraceRt As New Network.TraceRT
    Dim WithEvents clsVarious As New Network.Various
 
    Sub Main()
 
        Dim TracertData As New Network.TraceRT.tblTracertData
        ReDim TracertData.Hop(0)
 
        clsTraceRt.DoTrace("### IP geschwärzt ###", TracertData)
        Call ConsolePause()
 
    End Sub
 
    Private Sub TraceRT_RetValChanged(ByVal TracertData As _
      Network.TraceRT.tblTracertData) Handles clsTraceRt.RetValChange
        Dim i As Integer
        Console.WriteLine()
        For i = 0 To TracertData.Hop.GetUpperBound(0)
            Console.WriteLine("TTL= {0,-4} IP= {1,-17} Time= {2,4}ms", i + 1, _
              TracertData.Hop(i).IP, TracertData.Hop(i).Ping)
        Next
    End Sub
 
    ' ...
 
End Module

Class Network
 
    Class TraceRT
 
#Region "        Deklaration und Definition        "
 
        Public Structure tblTracertData
            Public Hop() As rowHopData
        End Structure
        Structure rowHopData
            Public Ping As Integer
            Public IP As String
            Public Host As String
        End Structure
        ' ...
 
#End Region
 
        Public Event RetValChange(ByVal Data As tblTracertData)
        Public Event ErrorOccourd(ByVal e As Exception)
        Public Event MessageOccourd(ByVal Message As String)
 
        Public Sub DoTrace(ByVal HostOrIP As String, ByVal TracertData As _
          tblTracertData)
            ' ...
            Dim ittl As Integer
            For ittl = 1 To 255
                ' ...
                ReDim Preserve TracertData.Hop(ittl - 1)
                TracertData.Hop(ittl - 1).IP = CType(epsrc, _
                  IPEndPoint).Address.ToString
                TracertData.Hop(ittl - 1).Ping = ts
                RaiseEvent RetValChange(TracertData)
                ' ...
            Next
            ' ...
        End Sub
 
    End Class
    ' ...
 
End Class