Public Sub leer_archivo()
Dim strruta As String = ("D:\cortesuprema.txt")
Me.RichTextBox1.Refresh()
Me.RichTextBox1.Multiline = True
Try
Dim strreader As New StreamReader(strruta)
Dim linea As String
Dim contador As Integer = 1
linea = strreader.ReadLine
Do While Not (linea Is Nothing)
Me.RichTextBox1.Text += linea & " "
contador += 1
linea = strreader.ReadLine
Loop
Catch ex As Exception
MsgBox("FALLÒ LECTURA DE ARCHIVO", MsgBoxStyle.Critical)
End Try
End Sub