'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)