A packet capture program source code and can be set to filter pure VB code. The complete source code.
File list:
Socket Sniffer
.............\SmartPacket
.............\...........\cFileFuncs.cls
.............\...........\cINI.cls
.............\...........\cIPProtocol.cls
.............\...........\clsChecksum.cls
.............\...........\clsICMPHeader.cls
.............\...........\clsProtocol.cls
.............\...........\clsRawSocket.cls
.............\...........\clsTCPHeader.cls
.............\...........\clsUDPHeader.cls
.............\...........\colProtocols.cls
.............\...........\cSuperClass.cls
.............\...........\modFunctions.bas
.............\...........\SmartPacket.dll
.............\...........\SmartPacket.exp
.............\...........\SmartPacket.lib
.............\...........\SmartPacket.vbp
.............\...........\SmartPacket.vbw
.............\...........\SubclassingSink.idl
.............\...........\SubclassingSink.tlb
.............\...........\Winsock.bas
.............\...........\WndProc2.asm
.............\SmartSniffer
.............\............\basMain.bas
.............\............\Filters.cfg
.............\............\frmTest.frm
.............\............\frmTest.frx
.............\............\SmartPacket.dll
.............\............\SmartSniffer.vbp
.............\............\SmartSniffer.vbw
.............\............\SmartSniffer2.exe
.............\Test.vbg