Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
 
    Private Sub test_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add("C:\test.xls")
 
        oSheet = oBook.Worksheets(1)
 
        Dim x
        For x = 1 To 500
            Me.Listview.Items.Add(oSheet.Cells(1, x).Text)
        Next x
    End Sub
 
    Private Sub Listview _SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Listview.SelectedIndexChanged
 
        Select Case Listview.SelectedIndex
            Case 0
                Textbox1.Text = oSheet.Range("B2").Value
                Textbox2.Text = oSheet.Range("C2").Value
                Textbox3.Text = oSheet.Range("D2").Value
                Textbox4.Text = oSheet.Range("E2").Value
            Case 1
                Textbox1.Text = oSheet.Range("B5").Value
                Textbox2.Text = oSheet.Range("C5").Value
                Textbox3.Text = oSheet.Range("D5").Value
                Textbox4.Text = oSheet.Range("E5").Value
        End Select
 
    End Sub