Visual Basic

Public Class testchart

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

        Dim objXL As Object
        Dim objWbk As Object
        Dim oSheet As Object     ' Excel Worksheet
        Dim oChart As Object     ' Excel Chart

        objXL = CreateObject("Excel.application")
        objWbk = objXL.workbooks.Open("C:\testing\test.xls")

        On Error GoTo ErrHandler

        Dim iRow As Integer      ' Index variable for the current Row
        Dim iCol As Integer      ' Index variable for the current Row

        Const cNumCols = 10      ' Number of points in each Series
        Const cNumRows = 2       ' Number of Series

        oSheet = objWbk.Worksheets.Item(1)

        oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
        oChart.SetSourceData(Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols))

        ' Make Excel Visible:
        objXL.Visible = True
        objXL.UserControl = True

ExitHandler:
        On Error Resume Next
        objWbk = Nothing
        objXL.Quit()
        objXL = Nothing
        Exit Sub

ErrHandler:
        MsgBox(Err.Description, vbExclamation)
        Resume ExitHandler


    End Sub
End Class

<br />
    sArchivo = Dir(sFullPath2DirCliente)<br />
    iCountPictureOnFirstLoad = 0<br />
<br />
    Do While sArchivo <> vbNullString<br />
        If nII < 12 Then<br />
            If mbCargarImagen(sImageRootDir & sDirCliente & sArchivo, nII) Then<br />
                imgSnapshot(nII).Tag = sImageRootDir & sDirCliente & sArchivo<br />
                Me.LblFechaFoto(nII).Caption = FileSystem.FileDateTime(imgSnapshot(nII).Tag)<br />
                iCountPictureOnFirstLoad = iCountPictureOnFirstLoad + 1 ' By Almeda<br />
            Else<br />
                imgSnapshot(nII).Tag = vbNullString<br />
                Me.LblFechaFoto(nII).Caption = ""<br />
            End If<br />
        Else<br />
            Exit Do<br />
        End If<br />
        sArchivo = Dir$<br />
        nII = nII + 1<br />
    Loop<br />