Apro la form archivio

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        My.Application.DoEvents()
        AddHandler archivio.CreateRecordEvent, AddressOf OnCreateRecord
        archivio.ShowDialog()
    End Sub