Public Delegate Sub SheetSpanModelEventHandler( _
   ByVal sender As Object, _
   ByVal e As SheetSpanModelEventArgs _
) 

Dim instance As New SheetSpanModelEventHandler(AddressOf HandlerMethod)

public delegate void SheetSpanModelEventHandler( 
   object sender,
   SheetSpanModelEventArgs e
)

FarPoint.Win.Spread.Model.BaseSheetSpanModel model; 
 
model = (FarPoint.Win.Spread.Model.BaseSheetSpanModel)fpSpread1.ActiveSheet.Models.Span; 
model.AddSelection(0, 0, 2, 2); 
 
model.Changed += new FarPoint.Win.Spread.Model.SheetSpanModelEventHandler(modelSpanModelChanged); 
     
private void button1Click(object sender, System.EventArgs e) 
{ 
    model.Add(4, 2, 2, 3); 
} 
 
private void modelSpanModelChanged(object sender, FarPoint.Win.Spread.Model.SheetSpanModelEventArgs e) 
{ 
    textBox1.Text = e.ColumnCount.ToString(); 
} 

Friend WithEvents model As FarPoint.Win.Spread.Model.BaseSheetSpanModel

model = FpSpread1.ActiveSheet.Models.Span
model.Add(0, 0, 2, 2)

Dim h As FarPoint.Win.Spread.Model.SheetSpanModelEventHandler = AddressOf modelSpanModelChanged
AddHandler model.Changed, h

Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    model.Add(4, 2, 2, 3)
End Sub

Private Sub modelSpanModelChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetSpanModelEventArgs)
    TextBox1.Text = e.ColumnCount.ToString()
End Sub