* form timer code Declare Integer InternetAttemptConnect In wininet; INTEGER dwReserved lcYear=Transform(Year(thisform.txtdate.Value)) lcMonth=Transform(Month(thisform.txtdate.Value)) If Val(lcMonth) < 10 lcMonth="0"+lcMonth Endif lcday=Transform(Day(thisform.txtdate.Value)) If Val(lcday) < 10 lcday="0"+lcday Endif LcUrl="http://www.tcmb.gov.tr/kurlar/" LcUrl = LcUrl + lcYear + lcMonth + "/" + lcday + lcMonth + lcYear + ".html" This.Interval = 0 Thisform.OIE.Navigate(LcUrl) Do While Thisform.OIE.ReadyState <> 4 Enddo Thisform.OIE.Document.Body.Scroll = "no" ELSE MESSAGEBOX("opps Internet Connection no avaible...",16,"Connection Error") LcUrl="about:blank" This.Interval = 0 Thisform.OIE.Navigate(LcUrl) Do While Thisform.OIE.ReadyState <> 4 Enddo Thisform.OIE.Document.Body.Scroll = "no" Endif