不要textbox令MshflexGrid有编辑功能

'MshflexGrid 取名 Grid1.

Private Sub Form_Load()
Grid1.Rows = 10
Grid1.Cols = 7

End Sub

Private Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim X As Long
Dim Y As Long
Dim L As Long
Dim Tmp As String
X = Grid1.Col
Y = Grid1.Row
Select Case KeyCode  '功能或扩展
   Case 46  '删除
      Grid1.Text = ""
End Select
End Sub

Private Sub Grid1_KeyPress(KeyAscii As Integer)
Dim X As Long
Dim Y As Long
Dim L As Long
Dim Tmp As String
X = Grid1.Col
Y = Grid1.Row
Select Case KeyAscii
   Case 13
      X = X + 1
      If X >= Grid1.Cols Then
         X = 1
         Y = Y + 1
         If Y >= Grid1.Rows Then Grid1.Rows = Grid1.Rows + 1
      End If
      Grid1.Col = X
      Grid1.Row = Y
   Case 8  '退格
      Tmp = Grid1.Text
      L = Len(Tmp) - 1
      If L > -1 Then Grid1.Text = Left(Tmp, L)
   Case Else
      Grid1.Text = Grid1.Text & Chr(KeyAscii)
End Select

End Sub