msflexgrid 怎么设置才能使他上面的内容能被复制？

这个控件本身不带复制功能,需用代码实现

以下代码请在窗体上加一个MSFlexGrid1,把下面代码全部复过去,然后在表格上选中一部份,点右键就可以复制到剪贴板,可以在EXCEL中粘贴了

Private Sub Form_Load()
MSFlexGrid1.AddItem "A" & Chr(9) & "B"
MSFlexGrid1.AddItem "C" & Chr(9) & "D"
MSFlexGrid1.AddItem "E" & Chr(9) & "F"
MSFlexGrid1.AddItem "G" & Chr(9) & "H"
MSFlexGrid1.AddItem "I" & Chr(9) & "J"
End Sub

Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
T = ""
rr = MSFlexGrid1.Row '起始行
cc = MSFlexGrid1.Col '起始列
For r = rr To MSFlexGrid1.RowSel
For c = cc To MSFlexGrid1.ColSel
MSFlexGrid1.Row = r
MSFlexGrid1.Col = c
T = T & MSFlexGrid1.Text & Chr(9)
Next c
T = T & vbCrLf '加回车换行符
Next r
Clipboard.Clear ' 清除剪贴板。
Clipboard.SetText T ' 将