如何获得上网的动态IP？

很多时候我们都需要知道自己或对方的上网IP,用VB如何获得上网的动态IP呢？
我做一个程序，源代码献给大家
http://www.51mis.com/soft/getip.rar