Tips: Vb6 impostare una colonna di un datagrid con valori booleani (Si o No)

Il frammento di codice, qui di seguito, illustra, come impostare in un controllo datagrid una colonna con valori boolean, tramite Visual Basic 6.
Dopo aver referenziato la la libreria Microsoft Data Formatting object library ed inserito nella vostra form, un controllo datagrid, utilizzate il frammento di codice qui di seguto, per ottenere il risultato previsto.
'imposto la fonte dati
Set DataGrid1.DataSource = Recdati
'personalizzo le colonne
DataGrid1.Columns(0).Width = 0
DataGrid1.Columns(1).Width = 1400
DataGrid1.Columns(2).Width = 1400
DataGrid1.Columns(3).Width = 1400
'oggetto per la gestione del formato
Dim objFormat As StdDataFormat
Set objFormat = New StdDataFormat
objFormat.Type = fmtBoolean
objFormat.TrueValue = "Si"
objFormat.FalseValue = "No"
objFormat.NullValue = "No"
'imposto il formato
Set DataGrid1.Columns(3).DataFormat = objFormat