VB6 flexgridを気リップボードにコピー

投稿日 投稿者 esadao 
レガシ－VB6で
If KeyCode = 17 And Shift = vbCtrlMask Then
    Clipboard.Clear
    Clipboard.SetText Grid1.Clip
End If