只用一句代码就可以获得本机的ip地址，很简单的。在窗体中加入一个winsock控件，Name设为sckServer，协议设为默认的TCP／IP协议
下面是代码：
private sub From_load（）
From.caption = sckserver.localip
end sub
好象是这样，其实原理很简单就是利用winsock控件来获得本地ip地址，当然这样会有缺点，但是只是提供个思路，如果代码有错误还请朋友指出呀。呵呵

这没什么，是控件本身有的功能，不过现在的电脑没有那个控件了

如果是内网+外网的呢？

大家都知道的哦
不过要是有内网和外网的话
一般他是只能获得内网的IP哦
我个人认为要是想获得外网的IP就只要用API访问注册表之后 才能获得
如果谁有更好的方法请推荐

外网更简单，你准备一个ASP的空间，然后放上有下面代码的ASP文件，在打开IE访问刚才的文件就行了，代码如下：<%=request.servervariables("remote_addr")%>，名字可认随便起

有没有办法写在程序里让他运行就显示的,最好是用VB写的.

我试过了，好象不行！！不知道怎么弄！！

对于使用NAT的情况
我想必需要通过与外网通信，然后抓包分析，或通过其他通信协议的功能获得。