Private Sub Form_Load()

    Text1.Move -10000, -10000, 1, 1

End Sub

 

Private Sub MSFlexGrid1_EnterCell()

    MSFlexGrid1.CellBackColor = vbBlue

    MSFlexGrid1.CellForeColor = vbWhite

    Text1.Text = MSFlexGrid1.Text

    Text1.SelStart = 0

    Text1.SelLength = Len(Text1.Text)

End Sub

 

Private Sub MSFlexGrid1_LeaveCell()

    MSFlexGrid1.CellBackColor = vbWhite  

    MSFlexGrid1.CellForeColor = vbBlue

End Sub

 

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

    Text1.SetFocus

End Sub

 

Private Sub Text1_Change()

    MSFlexGrid1.Text = Text1.Text

End Sub

 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode

    Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown

    KeyCode = 0

    End Select

End Sub