Sub ReadSRT
'TIMER Code Here
Timer0.Interval = SRTStop0 - VideoView0.Position
'READ Number, Time, Text From SRT File
SRTNum = List0.Get(Pos) ' Number
SRTime = List0.Get(Pos+1) ' Time
SRText = List0.Get(Pos+2) ' Text1
'INCRESE Second Position In SRT File
Pos = Pos + 2
'SET Second Line Empty
SRText2 = ""
'CHECK If Second SRT Line Is Empty
If (StringFunctions0.Len(List0.Get(Pos+1)) > 0) Then
'Subtitle Text First And Second Line
Pos = Pos + 1
SRText2 = List0.Get(Pos) ' Text2
'First Subtitle Line
SRText1 = SRText
SRText = SRText &CRLF& SRText2
End If
'INCREASE Second Position In SRT File
Pos = Pos + 2
'GET Time From SRT Time Row
SRTime0 = StringFunctions0.Split(SRTime, " --> ")
SRTStart0 = (SRTime0.Get(0))
SRTStop0 = (SRTime0.Get(1))
'REPLACE , With .
SRTStart0 = SRTStart0.Replace(",", ".")
SRTStop0 = SRTStop0.Replace(",", ".")
'CALCULATE Miliseconds From SRT Time
SRTStart0 = 3600000*SRTStart0.substring2(0,2)+60000*SRTStart0.substring2(3,5)+SRTStart0.substring(6)*1000
SRTStop0 = 3600000*SRTStop0.substring2(0,2)+60000*SRTStop0.substring2(3,5)+SRTStop0.substring(6)*1000
End Sub