Public Sub LoadLstCboFromFile(ByRef oObj As Object, sPath As String, Optional bClear As Boolean = True)
'   oObj doit être une ListBox ou  un ComboBox n'étant pas en lecture seule
    Dim FF As Integer, sLine As String
    FF = FreeFile
    
    If bClear Then oObj.Clear
    If LenB(Dir(sPath, vbSystem Or vbHidden)) > 0 Then
        Open sPath For Input As #FF
            Do Until EOF(FF)
                Line Input #FF, sLine
                If LenB(sLine) > 0 Then oObj.AddItem  sLine
            Loop
        Close #FF
    End If
End Sub

Public Sub SaveLstCboToFile(ByRef oObj As Object, sPath As String)
'   oObj doit être une ListBox ou  un ComboBox
    Dim FF As Integer, i As Integer
    FF = FreeFile
    
    Open sPath For Output As #FF
        For i = 0 To oObj.ListCount - 1
            Print #FF, oObj.List(i)
        Next
    Close #FF
End Sub

'Exemple d'appel avec un composant buton2 et un openfiledialogue1 : 
'    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'        Dim Reponse As DialogResult = Me.OpenFileDialog1.ShowDialog
'        If Reponse = Windows.Forms.DialogResult.OK Then LoadItemCbx(Me.ComboBox1, _
'        Me.OpenFileDialog1.FileName, True)
'    End Sub
    Private Sub LoadItemCbx(ByVal Cbx As ComboBox, ByVal TheFile As String, ByVal CbClean As Boolean)
        Try
            If CbClean = True Then Cbx.Items.Clear()
            Cbx.Items.AddRange(Split(My.Computer.FileSystem.ReadAllText(TheFile, System.Text.Encoding.Default), vbCrLf))
            If Cbx.Items.Count > 0 Then Cbx.SelectedIndex = 0
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

ComboBox1.Items.LoadFromFile(FileName);
ListBox1.Items.LoadFromFile(FileName);

// Lit chaques lignes du fichier
this.myCmb.Items.AddRange(File.ReadAllLines(myPath));

    Public Sub LoadListBox(ByRef oLst As System.Windows.Forms.ListBox, ByVal sPath As String)
        Dim sr As New System.IO.StreamReader(sPath)
        Do While Not sr.EndOfStream
            oLst.Items.Add(sr.ReadLine())
        Loop
        sr.Close()
    End Sub
    Public Sub SaveListBox(ByRef oLst As System.Windows.Forms.ListBox, ByVal sPath As String)
        Dim sw As New System.IO.StreamWriter(sPath)
        For Each o As Object In oLst.Items
            sw.WriteLine(o.ToString)
        Next
        sw.Close()
    End Sub