[elgokr]

لا عليك اخى الحبيب

وليعم الفائدة وان يكون الكود لديك بصورة صحيحة كاملاً

يفضل استخدام الكود بهذه الطريقة

كود :

       Dim streamer As IO.StreamReader
       If OpenFileDialog2.ShowDialog() = DialogResult.OK Then
           streamer = IO.File.OpenText(OpenFileDialog2.FileName)
       Else
           Exit Sub
       End If
       Dim mystring As String() = streamer.ReadToEnd.Split(Space(1))
       ListBox2.Items.AddRange(mystring)

بحيث اذا تم تحديد الملف المطلوب

يقوم بتنفيذ باقي الكود واذا لم يتجاهل الزر ويقوم بتخطى كود الزر

تحياتى لك

وتمنياتى لك التوفيق