Public Class ListaClientiForm
    Private cc As Clienti
    Dim bs As Windows.Forms.BindingSource
    Private ctr As System.Windows.Forms.Control

    Sub New(ByVal cli As Clienti, ByVal c As System.Windows.Forms.Control)
        ' Chiamata richiesta da Progettazione Windows Form.
        InitializeComponent()

        ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
        cc = cli
        ctr = c
    End Sub

    Private Sub ListaClientiForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bs = New Windows.Forms.BindingSource
        bs.DataSource = cc
        dgvClienti.AutoGenerateColumns = False
        dgvClienti.DataSource = bs
    End Sub

    Private Sub dgvClienti_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgvClienti.DoubleClick
        ctr.Text = CType(bs.Current, Common.Clienti.ICliente).RagioneSociale.Trim
        ctr.Tag = CType(bs.Current, Common.Clienti.ICliente).Codice.Trim
        Me.Close()
    End Sub
End Class