عرض sheet في combobox

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim oXL As Excel.Application = New Excel.Application
        Dim oWB As Excel.Workbook = oXL.Workbooks.Open("C:\Book1.xlsx")

        oXL.Visible = True

        For Each oSheet As Excel.Worksheet In oWB.Sheets
            ComboBox1.Items.Add(oSheet.Name)
        Next
        ComboBox1.SelectedIndex = 0


    End Sub
End Class