Public Delegate Sub DragDropBlockEventHandler( _
   ByVal sender As Object, _
   ByVal e As DragDropBlockEventArgs _
) 

Dim instance As New DragDropBlockEventHandler(AddressOf HandlerMethod)

public delegate void DragDropBlockEventHandler( 
   object sender,
   DragDropBlockEventArgs e
)

fpSpread1.DragDropBlock += new FarPoint.Win.Spread.DragDropBlockEventHandler(fpSpread1DragDropBlock);

private void fpSpread1DragDropBlock(object sender, FarPoint.Win.Spread.DragDropBlockEventArgs e)
{

}

Dim eh As FarPoint.Win.Spread.DragDropBlockEventHandler = AddressOf FpSpread1DragDropBlock
AddHandler FpSpread1.DragDropBlock, eh

Private Sub FpSpread1DragDropBlock(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragDropBlockEventArgs) Handles
FpSpread1.DragDropBlock

End Sub