Private Sub EditCut()
EditCopy
EditDelete
End Sub

Private Sub EditCopy()
'Kopiera markering till urklipp
Clipboard.Clear
Clipboard.SetText MSFlexGrid1.Clip
End Sub

Private Sub EditPaste()
'Klistra in innehållet från urklipp
If Len(Clipboard.GetText) Then MSFlexGrid1.Clip = _
Clipboard.GetText
End Sub

Private Sub EditDelete()
'Ta bort markering
Dim i As Integer
Dim j As Integer
Dim strClip As String
With MSFlexGrid1
For i = 1 To .RowSel
For j = 1 To .ColSel
strClip = strClip & "" & vbTab
Next
strClip = strClip & vbCr
Next
.Clip = strClip
End With
End Sub

Private Sub EditSelectAll()
'Markera allt
With MSFlexGrid1
.Visible = False
.row = 1
.col = 1
.RowSel = .Rows - 1
.ColSel = .Cols - 1
.TopRow = 1
.Visible = True
End With
End Sub