saya coba membantu, semoga bermanfaat.
Private Sub MSHFlexGrid1_Click()
MSHFlexGrid1_EnterCell
End Sub
Private Sub MSHFlexGrid1_EnterCell()
With MSHFlexGrid1
Text1.Visible = True
Text1.Left = .CellLeft + .Left
Text1.Top = .CellTop + .Top
Text1.Width = .CellWidth
Text1.Height = .CellHeight
Text1.Text = .Text
End With
End Sub
Private Sub MSHFlexGrid1_LeaveCell()
With MSHFlexGrid1
.Text = Text1.Text
Text1.Text = ""
Text1.Visible = False
End With
End Sub
[Non-text portions of this message have been removed]
