Public Property DataSource As Object

Dim instance As TagCloudCellType
Dim value As Object
 
instance.DataSource = value
 
value = instance.DataSource

public object DataSource {get; set;}

private DataSet CreateData()
{
    DataSet ds = new DataSet();
    DataTable dt = new DataTable();
    dt.Columns.Add(new DataColumn("ID", Type.GetType("System.Int32")));
    dt.Columns.Add(new DataColumn("Keyword", Type.GetType("System.String")));
    dt.Columns.Add(new DataColumn("Weight", Type.GetType("System.Int32")));

    dt.Rows.Add(new object[] { 1, ".net", 52 });
    dt.Rows.Add(new object[] { 2, "ajax", 22 });
    dt.Rows.Add(new object[] { 3, "css", 34 });

    ds.Tables.Add(dt);
    return ds;
} 
protected void Page_Load(object sender, EventArgs e)
{
    if (IsPostBack) return;

    TagCloudCellType tcloud = new TagCloudCellType();
    tcloud.DataSource = CreateData();
    tcloud.DataDisplayTextField = "Keyword";
    tcloud.DataHrefField = "Keyword";
    tcloud.DataHrefFormatString = "http://msdn.microsoft.com/en-us/library/Tags-Cloud.aspx?tag={0}";
    tcloud.DataWeightField = "Weight";
    tcloud.DataTitleField = "Weight";
    tcloud.DataTitleFormatString = "{0} item(s) tagged";
    tcloud.DataItemDataField = "ID";

    FpSpread1.Sheets[0].Cells[1, 1].CellType = tcloud; 
}
protected void Button1_Click(object sender, EventArgs e)
{
    TagCloudCellType tc = FpSpread1.Sheets[0].GetCellType(1, 1) as TagCloudCellType;
    foreach (TagCloudItem ci in tc.TagCloudItems)
    {
        // get the ItemData value associated to the cloud item 
        System.Diagnostics.Debug.WriteLine(string.Format("DisplayText:{0} , ItemValue:{1}", ci.DisplayText, ci.ItemData));
    } 
}

Private Function CreateData() As DataSet
    Dim ds As New DataSet
    Dim dt As New DataTable
    dt.Columns.Add(New DataColumn("ID", Type.GetType("System.Int32")))
    dt.Columns.Add(New DataColumn("Keyword", Type.GetType("System.String")))
    dt.Columns.Add(New DataColumn("Weight", Type.GetType("System.Int32")))

    dt.Rows.Add(New Object() {1, ".net", 52})
    dt.Rows.Add(New Object() {2, "ajax", 22})
    dt.Rows.Add(New Object() {3, "css", 34})

    ds.Tables.Add(dt)
    Return ds
End Function

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If IsPostBack Then Return

    Dim tcloud As New TagCloudCellType
    tcloud.DataSource = CreateData()
    tcloud.DataDisplayTextField = "Keyword"
    tcloud.DataHrefField = "Keyword"
    tcloud.DataHrefFormatString = "http://msdn.microsoft.com/en-us/library/Tags-Cloud.aspx?tag={0}"
    tcloud.DataWeightField = "Weight"
    tcloud.DataTitleField = "Weight"
    tcloud.DataTitleFormatString = "{0} item(s) tagged"
    tcloud.DataItemDataField = "ID"

    FpSpread1.Sheets(0).Cells(1, 1).CellType = tcloud
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim tc As TagCloudCellType = FpSpread1.Sheets(0).GetCellType(1, 1)
    For Each ci As TagCloudItem In tc.TagCloudItems
        ' get the ItemData value associated to the cloud item
        System.Diagnostics.Debug.WriteLine(String.Format("DisplayText:{0} , ItemValue:{1}", ci.DisplayText, ci.ItemData))
    Next
End Sub