'Declaration
 
Public Function New( _
   ByVal  As SheetView, _
   ByVal  As Integer, _
   ByVal column As Integer, _
   ByVal  As Integer, _
   ByVal columnCount As Integer, _
   ByVal  As Integer, _
   ByVal targetColumn As Integer, _
   ByVal  As Boolean _
)
             
        
            
            '使用法
 
Dim sheetView As SheetView
Dim row As Integer
Dim column As Integer
Dim rowCount As Integer
Dim columnCount As Integer
Dim targetRow As Integer
Dim targetColumn As Integer
Dim copy As Boolean
 
Dim instance As New CellDragDropUndoAction(sheetView, row, column, rowCount, columnCount, targetRow, targetColumn, copy)