mStream = mClient.OpenRead("http://www.worldtimeserver.com/current_time_in_HR.aspx")
mStreamReader = New StreamReader(mStream)
i = 0
Dim mNasaoSve As Integer = 0
Do While i < 500
i += 1
Dim myTekst As String = ""
If i > 150 Then
line = mStreamReader.ReadLine
If Microsoft.VisualBasic.Right(line, 3) = " PM" Or Microsoft.VisualBasic.Right(line, 3) = " AM" Then
mVrijeme = line
i = i
End If
If InStr(line, "2013</strong>") > 0 Then
mDatum = line
End If
End If
Loop