Public Delegate Sub SheetDataModelEventHandler( _
   ByVal sender As Object, _
   ByVal e As SheetDataModelEventArgs _
) 

Dim instance As New SheetDataModelEventHandler(AddressOf HandlerMethod)

public delegate void SheetDataModelEventHandler( 
   object sender,
   SheetDataModelEventArgs e
)

FarPoint.Win.Spread.Model.BaseSheetDataModel model; 
 
model = (FarPoint.Win.Spread.Model.BaseSheetDataModel)fpSpread1.ActiveSheet.Models.Data; 
model.ColumnCount = 4; 
 
model.Changed += new FarPoint.Win.Spread.Model.SheetDataModelEventHandler(modelDataModelChanged); 
     
private void button1Click(object sender, System.EventArgs e) 
{ 
    model.SetValue(0, 2, "DataModel"); 
} 
 
private void modelDataModelChanged(object sender, FarPoint.Win.Spread.Model.SheetDataModelEventArgs e) 
{ 
     textBox1.Text = e.Column.ToString(); 
} 

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

model = FpSpread1.ActiveSheet.Models.Data
model.ColumnCount = 4

Dim h As FarPoint.Win.Spread.Model.SheetDataModelEventHandler = AddressOf modelDataModelChanged
AddHandler model.Changed, h

Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    model.SetValue(0, 2, "DataModel")
End Sub

Private Sub modelDataModelChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetDataModelEventArgs)
    TextBox1.Text = e.Column.ToString()
End Sub