Private Sub Form_Load()
Dim IP As String
    IP = Inet1.OpenURL("http://www.icentar.ba/ip.php", icString)
    MsgBox IP
End Sub