Private Sub btnGetIP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetIP.Click

        Dim wsGeoIp As New WebServiceClient.geoip.GeoIPService

        ShowStatusIndicators()

        Try

            wsGeoIp.GetGeoIP(IPAddress:=IPBox.Text)
            lblTime.Text = wsGeoIp.GetGeoIPContext.ReturnCodeDetails()




            'wsLocalTime.LocalTimeByZipCode(txtZipCodeForTime.Text)
        Catch exp As Exception
            MsgBox(DataRetrievalError & wsGeoIp.Url, MsgBoxStyle.OkOnly, Me.Text)
            Exit Sub
        Finally
            ResetStatusIndicators()
        End Try

    End Sub