Dim oXL As Object        ' Excel application
        Dim oBook As Object      ' Excel workbook
        Dim oSheet As Object     ' Excel Worksheet
        Dim oChart As Object     ' Excel Chart
 
        Dim iRow As Integer      ' Index variable for the current Row
        Dim iCol As Integer      ' Index variable for the current Row
 
        Const cNumCols = 12      ' Number of points in each Series
        Const cNumRows = 2       ' Number of Series
 
 
        Dim aTemp(0 To cNumRows, 0 To cNumCols)
 
        'Start Excel and create a new workbook
        oXL = CreateObject("Excel.application")
        oBook = oXL.Workbooks.Add
        oSheet = oBook.Worksheets.Item(1)
 
        ' Insert Random data into Cells for the two Series:
        Randomize(Now().ToOADate())
        For iRow = 1 To cNumRows
            For iCol = 1 To cNumCols
                aTemp(iRow, iCol) = Int(Rnd() * 50) + 1
            Next iCol
        Next iRow
        oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp
 
        'Add a chart object to the first worksheet
        oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
        oChart.SetSourceData(Source:=oSheet.Range("A1").Resize(cNumRows, _
          cNumCols))
 
        ' Make Excel Visible:
        oXL.Visible = True
 
        oXL.UserControl = True