#副標=ComponentOne
#大標=免費.NET元件介紹

#作者=文／蔡捷雲

==<box>===========
程式1
    Private Sub Form2_Load(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles MyBase.Load

        Dim xp() As Single = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
     ' 虛擬12月的營運資料
        Dim yp() As Single = {88, 67, 34, 78, 99, 100, 111, 87, 56, 88, 96, 67, 109} 

        With Me.C1Chart1.ChartGroups.ChartGroupsCollection(0).ChartData.SeriesList(0)
            .X.CopyDataIn(xp)
            .Y.CopyDataIn(yp)
        End With

    End Sub
==<end>==============

==<box>===========
程式2
    Private Sub btnOK_Click_1(ByVal sender As System.Object,  _
     ByVal e As System.EventArgs) Handles btnOK.Click
             C1Spell1.CheckControl(TextBox1)
    End Sub
==<end>==============