タイムビューコントロールのOLEDragDropイベントにおいて、ピースのコピーを行えないようにする（ピースの移動のみを行う）ため、常時、Effect引数にvbDropEffectMoveを設定するが、Ctrlを押しながらピースを動かすとピースがコピーされてしまうが、Ctrlが押されても移動となるようにするにはどうしたらよいでしょうか。

対応

Ctrlキーが押されても移動となるようにするには、以下のコードのように、OLEDragOverイベントのEffect引数にvbDropEffectMoveの設定をしてください。

Private Sub KnTView1_OLEDragOver ( ～省略～ )
Effect.Value = vbDropEffectMove
End Sub