Public Class Form1
Dim V(0 To 9) As String
Dim W(0 To 9) As String
Dim i As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Open "e:\pacientes.dat" For Input As #1
i = 0
Do While EOF(1) = False
i = i + 1
Input #1, V(i), W(i)
Loop
Close #1
ordenar()
For j = 0 To i
List1.AddItem V(j) & " " & W(j)
Next
End Sub
Private Sub ordenar()
End Sub
Private Sub FIN_click()
End
End Sub
End Class