Imports FarPoint.Win.Spread.Model
Public Class Form1
　　Private WithEvents dm As FarPoint.Win.Spread.Model.DefaultSheetDataModel
　　Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　　　' バージョンの確認
　　　　Me.Text = FpSpread1.ProductVersion

　　　　' データの作成
　　　　Dim dt As New DataTable("Test")
　　　　dt.Columns.Add("ColA", GetType(String))
　　　　dt.Columns.Add("ColB", GetType(String))
　　　　dt.Rows.Add("A", "C")
　　　　dt.Rows.Add("B", "D")

　　　　' コンボボックス型セルの設定
　　　　Dim comboCell As New FarPoint.Win.Spread.CellType.ComboBoxCellType()
　　　　comboCell.Items = New String() {"", "A", "B"}
　　　　FpSpread1.ActiveSheet.Columns(0).CellType = comboCell

　　　　' 値の設定
　　　　FpSpread1.ActiveSheet.Columns(0).DataField = "ColA"
　　　　FpSpread1.ActiveSheet.Columns(1).DataField = "ColB"
　　　　FpSpread1.ActiveSheet.AutoGenerateColumns = False
　　　　FpSpread1.ActiveSheet.DataAutoCellTypes = False
　　　　FpSpread1.ActiveSheet.DataAutoSizeColumns = False
　　　　FpSpread1.ActiveSheet.DataSource = dt

　　　　' データモデルの設定
　　　　dm = FpSpread1.ActiveSheet.Models.Data
　　End Sub
　　Private Sub dm_Changed(sender As Object, e As SheetDataModelEventArgs) Handles dm.Changed
　　　　Debug.WriteLine("Type: {0}, Row: {1}, Column: {2}", e.Type, e.Row, e.Column)
　　End Sub

　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

　　　　Debug.WriteLine("***** SetValue *****")
　　　　'dm.SetValue(0, 0, dm.GetValue(0, 0).ToString)
　　　　dm.SetValue(0, 1, dm.GetValue(0, 1).ToString)
　　End Sub

　　Private Sub FpSpread1_LeaveCell(sender As Object, e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles FpSpread1.LeaveCell
　　　　Debug.WriteLine("***** LeaveCell {0}, {1}　*****", e.Row, e.Column)
　　End Sub
End Class