Sorry for the run-around. But things just have to be sorted to work their best in my oppinion... ENJOY!! xyr0x

'Written by xyr0x 'Revised to work properly on Friday, July 21st, 2006. 'For use in the opensource community 'don't say I ``NEVER" Give out code... you goon. 'contact: xtechsupportx@gmail.com 'AIM: ixi xyr0x ixi 'peace. Private Sub MYIP_Click() stat1.Text = "" remoteip.Text = "" Call ReqIP End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub ReqIP() Dim rIP As String On Error Resume Next DoEvents If Inet1.OpenURL Then rIP = Inet1.OpenURL("http://pchelplive.com/ip.php") remoteip.Text = rIP remoteip.Text = Replace(remoteip, Chr(10), "") stat1.Text = "IP has been acquired, and able to connect to the net" Else If Inet1.RequestTimeout Then stat1.Text = "IP Can't be acquired. Please check your firewall settings" Else If Inet1.StillExecuting Then stat1.Text = "Please wait until IP address has been Obtained!" End If End If End If End Sub