[wolf1120]

برك الله فيك عابر سبيل لكن انا مبتدئ في vb. Net
كنت اشتغل علا vb6
هذ هو السبب

وضعت هذا الكواد لكنه لم يضهر شيا في ليست بوكس

كود :

Imports System.IO


Public Class Form1


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


       Dim oReader As StreamReader

       OpenFileDialog1.CheckFileExists = True
       OpenFileDialog1.CheckPathExists = True
       OpenFileDialog1.DefaultExt = "BIN"
       OpenFileDialog1.FileName = ""
       OpenFileDialog1.Filter = "Text Files (*.BIN)|*.BIN|All Files (*.*)|*.*"
       OpenFileDialog1.Multiselect = False

       If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           oReader = New StreamReader(OpenFileDialog1.FileName, True)
           ListBox1.Text = oReader.ReadToEnd
       End If
   End Sub




 
End Class