Private sub MaTextBox_LostFocus() MaFlex.TextMatrix(OldRow,OldCol) = MaTextBox.Text MaFlex.SetFocus MaTextBox.Visible=False End sub Private Sub MaFlex_DblClick() OldRow=MaFelx.Row OldCol=MaFlex.Col MaTextBox.Left=MaFlex.Left + MaFlex.CellLeft MaTextBox.Top=MaFlex.Top + MaFlex.CellTop MaTextBox.Height=MaFlex.CellHeight MaTextBox.Width=MaFlex.CellWidth MaTextBox.Text = MaFlex.Text MaTextBox.Visible=True MaTextBox.SetFocus MaTextBox.SelStart=0 MaTextBox.SelLentgh=Len(MaFlex.Text) End Sub