Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mioreport As New ReportDocument()
        Dim tabella As New DataTable()
        mioreport.Load(Application.StartupPath + "\CrystalReport1.rpt")
        tabella = New DataTable()
        tabella.ReadXml(Application.StartupPath + "\Bancomat.xml")
        mioreport.Database.Tables(0).SetDataSource(tabella)
        CrystalReportViewer1.ReportSource = mioreport
        ' CrystalReportViewer1.Zoom(125)
    End Sub