How is packet sniffing done in Visual Basic 6.0?

I looked around a little bit and found the example http://pscode.com/vb/scripts/ShowCod...46567&lngWId=1 but it dosent seem to compair to ethersnoop when it comes to the IPv4-UPD protocall.

Another note: I use a 56k dileup modem and when I last looked for a packet sniffer/logger very few, if any, supported dileup.