Public Delegate Sub DragFillBlockEventHandler( _
   ByVal sender As Object, _
   ByVal e As DragFillBlockEventArgs _
) 

Dim instance As New DragFillBlockEventHandler(AddressOf HandlerMethod)

public delegate void DragFillBlockEventHandler( 
   object sender,
   DragFillBlockEventArgs e
)

fpSpread1.DragFillBlock += new FarPoint.Win.Spread.DragFillBlockEventHandler(fpSpread1DragFillBlock);

private void fpSpread1DragFillBlock(object sender, FarPoint.Win.Spread.DragFillBlockEventArgs e)
{

}

Dim eh As FarPoint.Win.Spread.DragFillBlockEventHandler = AddressOf FpSpread1DragFillBlock
AddHandler FpSpread1.DragFillBlock, eh

Private Sub FpSpread1DragFillBlock(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockEventArgs) Handles
FpSpread1.DragFillBlock

End Sub