Tabla editable

[etxebe]

Gracias por vuestro tiempo.
E mirado un poco las FAQ's pero me parece que el ejemplo es demasiado complicado (soy novato)...
Ademas, en mi aplicacion no necesito gran cosa y si pudiera conseguir lo de WordWrap seria mas que suficiente ya que cumpliria el objetivo de la aplicacion con un codigo muy simple:

Private Sub Form_Load()
MSFlexGrid1.Cols = 7
MSFlexGrid1.Rows = 7
For i = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.ColWidth(i) = 900
Next
MSFlexGrid1.WordWrap = True
MSFlexGrid1.RowHeightMin = 900
End Sub

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
Dim i As Integer
i = Len(MSFlexGrid1.Text)
If KeyAscii = 8 Then
If i > 0 Then
MSFlexGrid1.Text = VBA.Left(MSFlexGrid1.Text, Len(MSFlexGrid1.Text) - 1)
End If
ElseIf i >= 40 Then
KeyAscii = 0
ElseIf KeyAscii > 31 Then
MSFlexGrid1.Text = MSFlexGrid1.Text & Chr(KeyAscii)
End If
End Sub

Como veis, el codigo es muy simple (lo mejor, ya que cumple su funcion y deben entenderlo otras personas).

Sin embargo, lo de WordWrap no lo consigo. E puesto como limite 40 caracteres y e definido el ancho de las columnas (no tengo sitio para hacerlas mas anchas). No se si e entendido bien lo de:

"...y esto siempre y cuando la propiedad RowHeightMin permita una segunda fila en la celda."

Porque yo creo que hay suficiente sitio...pero no pasa al siguiente renglon cuando se llega al limite del ancho. No entiendo nada. Sabriais decirme porque?