Visual Basic - Ajustar columnas de un datagrid al ancho del texto

Saludos:
Quisiera saber como se hace para que al hacer doble click en las columnas de un datagrid éste se ajuste automáticamente al ancho del texto mayor de esa columna.
Encontré algo en ésta página (http://www.freevbcode.com/ShowCode.Asp?ID=4473) pero el ejemplo que se muestra ahí no me funciona.
Desde ya, Muchas Gracias

Bueno cada dia me descepciona mas esta comunidad pensando que VB se limita a puros objetos y propiedades dejando atras el codigo, pero pues bueno, de los buenos programadores que hacian todo con codigo supongo que quedamos pocos, lo que tienes que hacer es insertar una etiqueta y ponerle el autosize como true(en la propiedades), despues el el grid en la subrutina doble click poner el siguiente codigo:

Private Sub Grid_DblClick()
Dim x As Integer, y As Integer, aux As Integer, ren As Integer
y = 0
For x = 0 To Grid.Rows - 2
aux = Len(Grid.TextMatrix(x, Grid.Col))
If aux > y Then
y = aux
ren = x
End If
Next x
Label1.Caption = Grid.TextMatrix(ren, Grid.Col)
Grid.ColWidth(Grid.Col) = Label1.Width + 100
End Sub

Nota1: recueda poner el nombre de los objetos correctos