Private Type MIB_IPSTATS
    dwForwarding As Long ' IP forwarding enabled or disabled
    dwDefaultTTL As Long ' default time-to-live
    dwInReceives As Long ' datagrams received
    dwInHdrErrors As Long  ' received header errors
    dwInAddrErrors As Long ' received address errors
    dwForwDatagrams As Long ' datagrams forwarded
    dwInUnknownProtos As Long  ' datagrams with unknown protocol
    dwInDiscards As Long ' received datagrams discarded
    dwInDelivers As Long ' received datagrams delivered
    dwOutRequests As Long  '
    dwRoutingDiscards As Long  '
    dwOutDiscards As Long  ' sent datagrams discarded
    dwOutNoRoutes As Long  ' datagrams for which no route exists
    dwReasmTimeout As Long ' datagrams for which all
    ' frags did not arrive
    dwReasmReqds As Long ' datagrams requiring reassembly
    dwReasmOks As Long  ' successful reassemblies
    dwReasmFails As Long ' failed reassemblies
    dwFragOks As Long  ' successful fragmentations
    dwFragFails As Long ' failed fragmentations
    dwFragCreates As Long  ' datagrams fragmented
    dwNumIf As Long ' number of interfaces on computer
    dwNumAddr As Long  ' number of IP address on computer
    dwNumRoutes As Long ' number of routes in routing table
End Type
Private Declare Function GetIpStatistics Lib "iphlpapi" (pStats As MIB_IPSTATS) _
  As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim IpStats As MIB_IPSTATS
    'retrieve the data
    GetIpStatistics IpStats
    'set the graphics mode of this form to persistent
    Me.AutoRedraw = True
    'show the data
    With IpStats
        Me.Print "IP forwarding enabled or disabled: " + CStr(CBool( _
          .dwForwarding))
        Me.Print "Default time-to-live: " + CStr(.dwDefaultTTL)
        Me.Print "Successful reassemblies: " + CStr(.dwReasmOks)
        Me.Print "Failed reassemblies: " + CStr(.dwReasmFails)
    End With
End Sub

Gr??e Kenjiro