Private Sub EsempioDataGridImmobili()

        With DataGridImmobili

            .DefaultCellStyle.WrapMode = DataGridViewTriState.True 'per autosize
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders 'per autosize
            .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
            .CellBorderStyle = DataGridViewCellBorderStyle.Single
            .GridColor = Color.Blue
            .RowHeadersVisible = False
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False

            Dim imgColVisualizza As New DataGridViewImageColumn()
            imgColVisualizza.Width = 20
            imgColVisualizza.DisplayIndex = 0
            imgColVisualizza.Name = "Foto"
            imgColVisualizza.DefaultCellStyle.NullValue = Nothing
            imgColVisualizza.HeaderText = "Foto"
            .Columns.Add(imgColVisualizza)


            .Columns("ID").Width = 35 '55
            .Columns("ID").HeaderText = "Cod." 'modificare testa

            .Columns("DataInsert").Width = 70
            .Columns("DataInsert").HeaderText = "Data" 'modificare testa

            .Columns("TipoImmobile").Width = 105
            .Columns("TipoImmobile").HeaderText = "Tipologia" 'modificare testa

            .Columns("Denominazione").Width = 60 '45
            .Columns("Denominazione").HeaderText = "Città" 'modificare testa

            .Columns("Zona").Width = 85
            .Columns("Zona").HeaderText = "Zona" 'modificare testa

            .Columns("IndRiservato").Width = 110
            .Columns("IndRiservato").HeaderText = "Indirizzo" 'modificare testa

            .Columns("istrattativa").Width = 0
            .Columns("istrattativa").HeaderText = "istrattativa" 'modificare testa

            .Columns("isscaduto").Width = 0
             .Columns("isscaduto").HeaderText = "isscaduto" 'modificare testa

               .Columns("Datascadenza").Width = 0
              .Columns("Datascadenza").HeaderText = "Datascadenza" 'modificare testa

        End With

        DataGridImmobili.DefaultCellStyle.WrapMode = DataGridViewTriState.True 'per autosize
        DataGridImmobili.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells 'per autosize

        DataGridImmobili.DefaultCellStyle.BackColor = Color.OldLace