Cómo leer un archivo .INI y enviar cada linea a un ComboBox vb.Net

1 Form : ComboBox, Boton, OpenFileDialog.


























Código:

Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.FileName = "archiv.ini"
OpenFileDialog1.ShowDialog()
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
Try
While sr.Peek <> -1
ComboBox1.Items.Add(sr.ReadLine)
End While
sr.Close()
Catch ex As Exception
End Try
End Sub
End Class