.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

If ds.Tables(0).Rows.Count > 0 Then
  AddImageColumn(ds.Tables(0), "ClientPic")
  Dim myFilename As String
  myFilename = myG.AppLocation & "\" & myDB.DoExecScalarQuery("select picture from personal")
  If File.Exists(myG.AppLocation & "\ClientDocs\" & myG.Patient & "_clientimage.jpg") Then
    If File.Exists(myFilename) Then
      LoadImage(ds.Tables(0).Rows(0), "ClientPic", myFilename)
    End If
    ds.WriteXml(applocation & "\personal.xml")
    ds.WriteXmlSchema(myG.AppLocation & "\personal.xsd")
    'Dim rptPersonal As New crptPersonalInfo            ' now declared in main
    rptPersonal.SetDataSource(ds)                       ' THIS IS THE LINE THAT'S SLOW THE FIRST TIME
    ' Dim rptPersonalViewer As New frmReportViewer      ' now declared in main
    rptPersonalViewer.cr.ReportSource = rptPersonal
    rptPersonalViewer.ShowDialog()
  Else
    MsgBox("Please check your personal information.  It appears some of it may be missing.",
      MsgBoxStyle.OkOnly, "No Data For Report")
  End If

  Catch ex As Exception
    Dim myE As New EventLogging.EventLogging
    myE.StoreEvent("frmRptParams.RunReport", "Error running report", ex.Message & vbCrLf & vbCrLf & "SQL was: " & strPersonalInfo)
    myE = Nothing
    MsgBox("There was a problem gathering data for the Personal Info report.  If the problem persists please contact customer service.", MsgBoxStyle.Exclamation, "Report Not Run")
  Finally
  da = Nothing
  ds = Nothing
End Try