Dim str As IO.StreamReader = New IO.StreamReader("F:\1.txt", System.Text.Encoding.Default)do until str.endofstrem listbox1.items.add(str.ReadLine())loop str.Close()
