Visual Basic

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

For Each row As DataGridViewRow In dgv1.Rows
If Not row.IsNewRow Then
Dim row1 = row
Dim myTableSummary = (From myRow As DataGridViewRow In dgv2.Rows.Cast(Of DataGridViewRow)() Where Not myRow.IsNewRow AndAlso myRow.Cells(1).Value.ToString.Equals(row1.Cells(1).Value.ToString) Select ID1 = myRow.Cells(3).Value, _
ItemValue = myRow.Cells(1).Value Group By ID1 Into G = Group, match = Count())
Dim myArrayOfAnonymousTypes() = myTableSummary.ToArray
'Array.Sort(myArrayOfAnonymousTypes)

For Each myElement In myArrayOfAnonymousTypes
MsgBox(myElement.ID1.ToString & " - " & myElement.match.ToString)

Next

End If
Next