Dim strArray() As String = {"Ronnie", "Jack", "Lori", "Max", "Tricky"}
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(5, 5)
Dim i, j As Integer
dataModel.DataSource = strArray
FpSpread1.ActiveSheet.Models.Data = dataModel
i = dataModel.NonEmptyColumnCount
j = dataModel.NonEmptyRowCount
ListBox1.Items.AddRange(New Object() {i.ToString(), j.ToString()})