【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“frmIPStatisticsV4.frm”一文，供大家参考学习

    VERSION 5.00
    Begin VB.Form frmIPStatisticsV4 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "IP Statistics V4"
       ClientHeight    =   6135
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   4455
       Icon            =   "frmIPStatisticsV4.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       ScaleHeight     =   6135
       ScaleWidth      =   4455
       StartUpPosition =   3  'Windows Default
       Begin VB.TextBox txtRoutesInRoutingTable 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   45
          Top             =   5760
          Width           =   1575
       End
       Begin VB.TextBox txtIPAddressesOnComputer 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   43
          Top             =   5520
          Width           =   1575
       End
       Begin VB.TextBox txtIPForwarding 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   41
          Top             =   5280
          Width           =   1575
       End
       Begin VB.TextBox txtInterfacesOnComputer 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   39
          Top             =   5040
          Width           =   1575
       End
       Begin VB.TextBox txtTransmittedDatagramsDiscarded 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   35
          Top             =   4440
          Width           =   1575
       End
       Begin VB.TextBox txtOutgoingDatagramsDiscarded 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   33
          Top             =   4200
          Width           =   1575
       End
       Begin VB.TextBox txtReceivedDatagramsDiscarded 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   31
          Top             =   3960
          Width           =   1575
       End
       Begin VB.TextBox txtReceivedAddressErrors 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   29
          Top             =   3720
          Width           =   1575
       End
       Begin VB.TextBox txtReceivedHeaderErrors 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   27
          Top             =   3480
          Width           =   1575
       End
       Begin VB.TextBox txtDatagramsNoRoute 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   25
          Top             =   3240
          Width           =   1575
       End
       Begin VB.TextBox txtDatagramsMissingFragments 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   21
          Top             =   2640
          Width           =   1575
       End
       Begin VB.TextBox txtFailedFragmentations 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   19
          Top             =   2400
          Width           =   1575
       End
       Begin VB.TextBox txtSuccessfulFragmentations 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   17
          Top             =   2160
          Width           =   1575
       End
       Begin VB.TextBox txtDatagramsFragmented 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   15
          Top             =   1920
          Width           =   1575
       End
       Begin VB.TextBox txtFailedReassemblies 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   13
          Top             =   1680
          Width           =   1575
       End
       Begin VB.TextBox txtSuccessfulReassemblies 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   11
          Top             =   1440
          Width           =   1575
       End
       Begin VB.TextBox txtReceivedDatagramsDelivered 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   7
          Top             =   840
          Width           =   1575
       End
       Begin VB.TextBox txtDatagramsForwarded 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   5
          Top             =   600
          Width           =   1575
       End
       Begin VB.Timer tmrIPStatistics 
          Enabled         =   0   'False
          Interval        =   1000
          Left            =   2400
          Top             =   0
       End
       Begin VB.TextBox txtOutgoingDatagramsRequests 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   3
          Top             =   360
          Width           =   1575
       End
       Begin VB.TextBox txtDatagramsRequiringReassembly 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   2760
          Locked          =   -1  'True
          TabIndex        =   9
          Top             =   1200
          Width           =   1575
       End
       Begin VB.TextBox txtDatagramsUnknow