Private Sub fmIngresso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim PercorsoDiPArtenza As String = Application.StartupPath.Replace("bin\x86\Debug", "risorse\Basedeidati").Replace("bin\Release", "risorse\Basedeidati")
        For Each file As String In IO.Directory.GetFiles(PercorsoDiPArtenza)
            Me.CheckedListBox1.Items.Add(IO.Path.GetFileName(file))
        Next
    End Sub