'Declaration
Public Function New( _
ByVal As MedicalViewerBaseCell, _
ByVal As Integer, _
ByVal As Integer, _
ByVal As IDataObject, _
ByVal As Integer, _
ByVal As Integer, _
ByVal As Integer, _
ByVal As DragDropEffects, _
ByVal As DragDropEffects _
)
'Usage
Dim cell As MedicalViewerBaseCell
Dim cellIndex As Integer
Dim subCellIndex As Integer
Dim data As IDataObject
Dim keyState As Integer
Dim x As Integer
Dim y As Integer
Dim allowedEffect As DragDropEffects
Dim effect As DragDropEffects
Dim instance As New MedicalViewerDragEventArgs(cell, cellIndex, subCellIndex, data, keyState, x, y, allowedEffect, effect)