[sooriaty03]

وعليكم السلام ورحمة الله وبركاته
أخي الكريم الكود المرفق مكتوب بـ VB6
والدوت نت تميزت باختصار الكود
فإليك هذا الكود الذي يعطي نفس النتيجة ولكن في سطر واحد فقط

كود :

Private Function LoadTips(ByVal FileName As String) As String()
        Return System.IO.File.ReadAllLines(FileName)
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.AddRange(LoadTips("اسم الملف"))
    End Sub

الكود السابق يقوم عند الضغط على Button1 باستدعاء الوظيفة LoadTips مع تمرير متغير اسم الملف FileName
وبعدها يقوم بإضافة الناتج في ListBox1

بالتوفيق