[فارس جراح]

ضع هذا الكود في Button

كود :

Dim op As New OpenFileDialog
       op.Filter = "*.txt|*.txt"
       If op.ShowDialog = Windows.Forms.DialogResult.OK Then
           TextBox1.Text = IO.File.ReadAllText(op.FileName)
       End If