Make MSHFlexGrid Editable without help of any - visual basic, vb, vbscript

Make MSHFlexGrid Editable without help of any - visual basic, vb, vbscript:

Private Sub msh1_KeyPress(KeyAscii As Integer)


Select Case KeyAscii
Case vbKeyReturn, vbKeyTab
'move to next cell.

With msh1


If .Col + 1 <= .Cols - 1 Then
.Col = .Col + 1
Else


If .Row + 1 <= .Rows - 1 Then
.Row = .Row + 1
.Col = 0
Else
.Row = 1
.Col = 0
End If

End If

End With

Case vbKeyBack


With msh1
'remove the last character, if any.

If Len(.Text) Then
.Text = Left(.Text, Len(.Text) - 1)
End If

End With

Case Is < 32
Case Else

With msh1
.Text = .Text & Chr(KeyAscii)
End With

End Select

End Sub