Personalizando un Dbgrid en vb 6.0

[carlosEsp]

hola a todos:

Estoy personalizando un dbgrid en vb 6.0 con codigo para las columnas que usare, es posible lograrlo de la siguiente forma:

Private Sub formatoGRID()
Dim ColIndex As Integer

Select Case DBGrid1.Columns(ColIndex)
Case 0
.Caption = "ID"
.Width = Me.TextWidth(String(15, "S" )
.Locked = True
Case 1
.Caption = "CIUDAD"
.Width = Me.TextWidth(String(35, "S" )
.Locked = True
Case 2
.Caption = "PRECIO"
.Width = Me.TextWidth(String(50, "S" )
.NumberFormat = "##,##0.0"
.Locked = True

End Select
end sub

Despues lo llamare al carga el form en el evento Onload, claro esta que aqui solo uso tres columnas por el momento.
Les agradesco si me puede decir si es la forma correcta de hacer un procedimiento de este tipo.

Bye.
Gracias