Imports System.IO
Private Sub Anzeige()
 
        Dim fs As FileStream
        Dim sr As StreamReader
 
        Try
            fs = New FileStream(
            "textfile.ini", FileMode.Open)
            sr = New StreamReader(fs)
 
            cmbGeraetename.Items.Clear()
 
            Do While Not sr.EndOfStream
                cmbGeraetename.Items.Add(sr.ReadLine)
            Loop
            sr.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub