Visual Basic

1
01:00:01:10
01:00:05:22
After the conquest and plundering
of the Inca empire by Spain

2
01:00:05:25
01:00:09:09
the Indians invented the
legend of El Dorado

3
01:00:09:12
01:00:13:24
a land of gold, located in the
swamps of the Amazon headwaters.

(?<Nummer>\d+)\r\n(?<TCStart>\d{2}:\d{2}:\d{2}:\d{2})\r\n(<TCEnd>\d{2}:\d{2}:\d{2}:\d{2})\r\n(?<Text>[a-zA-Z;1-9;\s;\p{P};\p{L}\p{M}]*)\r\n\r\n

Public Event MyCustomEvent
'Description of event goes here.
End Event

'Declare a new collection of events:
Dim WithEvents MyEventsCollection As New EventsCollection1

'Create the class, declared above:
Class EventsCollection1
  Public Event My1stEvent()
  Public Event My2ndEvent()
End Class

Private Sub ThisProcedure() Handles EventsCollection1.My1stEvent
'...Do stuff.
End Sub

Private Sub ThisPrcoedure() Handles My1stEvent, My2ndEvent
'...Do stuff.
End Sub

Imports System.Net
Public Class Form1
    Dim WithEvents WC As New WebClient
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btndownload.Click
        WC.DownloadFileAsync(New Uri("http://software-files-a.cnet.com/s/software/13/11/34/40/avast_free_antivirus_setup.exe?lop=link&ptype=3001&ontid=2239&siteId=4&edId=3&spi=47930a5e8f8651a2bc6c9fa6deeb7e68&pid=13113440&psid=10019223&token=1372207673_29dcdb8042510e0ccc215fea7880786d&fileName=avast_free_antivirus_setup.exe"), "C:\avast.exe")
    End Sub
    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        lblpercent.Text = ProgressBar1.Value & "%"
    End Sub
End Class