Sub Form_Load()
   Dim Termm(), NoTerm(), elem()  As String
    Dim a, NoElem As Integer
                     
        NoTerm = Split("E|E'|OS|T|T'|OM|F", "|")
        Termm = Split("+|-|*|(|)|2|$", "|")
        Inicia Termm, NoTerm, Fg2
   
   TxtEdit = ""
End Sub

Public Sub Inicia(ArrTerminales() As String, ArrNoTerminales() As String, Fg2 As MSHFlexGrid)

    Reng = UBound(ArrNoTerminales) + 1
    Cols = UBound(ArrTerminales) + 1
 
    Fg2.Rows = Reng + 1
    Fg2.Cols = Cols + 1
    Fg2.FixedCols = 1
    Fg2.FixedRows = 1
 
    For i = 0 To UBound(ArrTerminales)
        Fg2.TextMatrix(0, i + 1) = ArrTerminales(i)
    Next i
 
    For j = 0 To UBound(ArrNoTerminales)
        Fg2.TextMatrix(j + 1, 0) = ArrNoTerminales(j)
    Next j
 End Sub



Private Function Fgi(r As Integer, c As Integer) As Integer
   Fgi = c + Fg2.Cols * r
End Function

Sub Fg2_KeyPress(KeyAscii As Integer)
   MSHFlexGridEdit Fg2, TxtEdit, KeyAscii
End Sub

Sub Fg2_DblClick()
   MSHFlexGridEdit Fg2, TxtEdit, 32 ' Simula un espacio.
End Sub
Sub MSHFlexGridEdit(MSHFlexGrid As Control, _
Edt As Control, KeyAscii As Integer)

   Case 0 To 32
      Edt = MSHFlexGrid
      Edt.SelStart = 1000

   Case Else
      Edt = Chr(KeyAscii)
      Edt.SelStart = 1
   End Select

   Edt.Move MSHFlexGrid.Left + MSHFlexGrid.CellLeft, _
      MSHFlexGrid.Top + MSHFlexGrid.CellTop, _
      MSHFlexGrid.CellWidth - 8, _
      MSHFlexGrid.CellHeight - 8
   Edt.Visible = True

   Edt.SetFocus
End Sub
Sub txtEdit_KeyPress(KeyAscii As Integer)
   ' Elimina los retornos para quitar los pitidos.
   If KeyAscii = Asc(vbCr) Then KeyAscii = 0
End Sub

Sub txtEdit_KeyDown(KeyCode As Integer, _
Shift As Integer)
   EditKeyCode Fg2, TxtEdit, KeyCode, Shift
End Sub

Sub EditKeyCode(MSHFlexGrid As Control, Edt As _
Control, KeyCode As Integer, Shift As Integer)

   Select Case KeyCode

   Case 27  
      Edt.Visible = False
      MSHFlexGrid.SetFocus

   Case 13 
      MSHFlexGrid.SetFocus

   Case 38      ' Arriba.
      MSHFlexGrid.SetFocus
      DoEvents
      If MSHFlexGrid.Row > MSHFlexGrid.FixedRows Then
         MSHFlexGrid.Row = MSHFlexGrid.Row - 1
      End If

   Case 40     
      MSHFlexGrid.SetFocus
      DoEvents
      If MSHFlexGrid.Row < MSHFlexGrid.Rows - 1 Then
         MSHFlexGrid.Row = MSHFlexGrid.Row + 1
      End If
   End Select
End Sub
Sub Fg2_GotFocus()
   If TxtEdit.Visible = False Then Exit Sub
   Fg2 = TxtEdit
   TxtEdit.Visible = False
End Sub

Sub Fg2_LeaveCell()
   If TxtEdit.Visible = False Then Exit Sub
   Fg2 = TxtEdit
   TxtEdit.Visible = False
End Sub