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
