Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        'Start a new workbook in Excel.
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add("C:\test.xls")
 
        'Add data to cells of the first worksheet in the new workbook.
        oSheet = oBook.Worksheets(1)
        TextBox1.Text = oSheet.Range("A2").Value
        Dim x As Integer = 1
        For x = 1 To 2
        Me.ListView1.Items.Add(oSheet.Cells(1, x).Value)
        Next x
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        'Save the Workbook and quit Excel.
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()
        Me.Close()
    End Sub