[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته





جرب هذا الكود على السريع

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim txtRead() As String = IO.File.ReadAllLines(Application.StartupPath & "\store.txt")
        Me.ComboBox1.Items.Clear()
        For Each line In txtRead
            Me.ComboBox1.Items.Add(line)
        Next
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.ComboBox1.Items.Add(Me.ComboBox1.Text)
    End Sub


    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim txtWrite As String = ""
        For Each line In Me.ComboBox1.Items
            txtWrite &= line & vbNewLine
        Next
        IO.File.WriteAllText(Application.StartupPath & "\store.txt", txtWrite.Trim)
    End Sub

End Class 


السلام عليكم ورحمة الله وبركاته