Subrutina ajuste tamaño cuadricula

del siguiente codigo:

Private Sub Form_Resize()
On Error Resume Next
grdDataGrid.Width = Me.ScaleWidth
grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - 30 -
picButtons.Height - picStatBox.Height
lblStatus.Width = Me.Width - 1500
cmdNext.Left = lblStatus.Width + 700
cmdLast.Left = cmdNext.Left + 340
End Sub

¿como puedo esteblecer el ancho "individual" para cada columna del datagrid
de cada campo del registro?

gracias