Private bs As BindingSource
    Private cc As MiaCollection

    Private Sub MiaForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'Popola il controllo BindingSource
            cc = New MiaCollection
            bs = New BindingSource
            bs.DataSource = cc
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        'Popola la DataGridView
        dgv.DataSource = bs
    End Sub