Hola etxebe,
para limitar el número de caracteres a escribir en cada columna, puedes hacer algo como esto:
Código:
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
Dim i As Integer
i = Len(MSFlexGrid1.Text)
Select Case MSFlexGrid1.col
Case 0
If i >= 10 Then KeyAscii = 0 ' la primera columna sólo admite 10 caracteres
Case 1
If i >= 5 Then KeyAscii = 0 ' la segunda, cinco
End Select
If KeyAscii > 31 Then MSFlexGrid1.Text = MSFlexGrid1.Text & Chr(KeyAscii)
End Sub
Agur
