.NET (Core and Framework)

class MyObject {
    const int childMax = 10;
    const int runMax = 100000000;

    Stopwatch SW = new Stopwatch();

    event EventHandler MyEvent;
    List<EventHandler> eventList = new List<EventHandler>();
    Dictionary<string, EventHandler> eventDict = new Dictionary<string, EventHandler>();

    int iterator = 0;

    public MyObject() {
        for (int i = 0; i< childMax ; i++ ) {
            eventList.Add(MyFunc);
            eventDict.Add(i.ToString(),MyFunc);
            MyEvent += MyFunc;

        }
    }

    public void Test() {
        // Normal Multicast Events
        SW.Start();
        for (int i = 0; i< runMax ; i++ ) {
            MyEvent(null,null);
        }
        SW.Stop();
        Console.WriteLine("Iterator=" + iterator.ToString("n") + " using Events, Elapsed: " + SW.Elapsed.ToString());
        SW.Reset();

        // Generic List
        SW.Start();
        for (int i = 0; i< runMax ; i++ ) {
            for (int j = 0; j < childMax; j++) {
                eventList[j](null,null);
            }
        }
        SW.Stop();
        Console.WriteLine("Iterator=" + iterator.ToString("n") + " using List, Elapsed: " + SW.Elapsed.ToString());
        SW.Reset();
    }

    private void MyFunc(object sender, EventArgs e) {
        //Dummy;
        iterator++;
    }
}

Iterator=1.000.000.000,00 using Events, Elapsed: 00:00:06.2153030
Iterator=2.000.000.000,00 using List, Elapsed: 00:00:04.8695574
Press any key to continue . . .

Dim dset1 As DataSet
Dim dt As DataTable
                dSet1 = New DataSet
                'The adapter stores the data in a dataset
                dAdapt1.Fill(dSet1, "Patient Profile")

dt = New DataTable
                dt = dSet1.Tables("Patient_Profile")

 For Each rw As DataRow In dt.Rows  --> Error Object reference not set to an instance of an object.
                    decdata = New TripleDES()
                   
                    deRecDataFnam = decdata.Decrypt(rw("FirstName"), ned)
                    listItem = New ListViewItem()
                    listItem.SubItems.Add(deRecDataFnam)

                    ListVwPatProf.Items.Add(listItem)
                Next