hi

here is code to view your public ip :
Add Microsoft Internet Transfer Control 6 And add Inet1
And One text Box Called txtIp


Code:
Dim strName As String
Private Sub Form_Load()
txtIP = (Inet1.OpenURL("http://iqhaacker.6te.net/ip.php"))
strName = Replace(txtIP, "", "")
txtIP.Text = strName
End Sub
And Here is the php File If u like To Upload It to Ur Site And Link The Program
to Ur Site

Code:
<?php
$ip=$_SERVER['REMOTE_ADDR'];
echo $ip
?>
And If You User it Change The Link From The Program To Your Link.

Code:
http://iqhaacker.6te.net/ip.php
Change it To Your Link

Code:
http://xxxxx/ip.php
And Have A Nice Day