vb Code:
With OpenFileDialog1
'Set the Filter Text to set the open file types
.Filter = "Urdu Files (*.urdu)|*.urdu|" & _
"Rich Text Files (*.rtf) |*.rtf"
'Pick Text Files to begin with
.FilterIndex = 1
'The Caption of your OpenDialog
.Title = "Choose a File To Open....."
'Ensure we only get back valid filenames
.CheckFileExists() = True
.CheckPathExists = True
.ValidateNames = True
.DereferenceLinks = True
'Set the starting dir
' .InitialDirectory = "c:\"
'Show the OpenDialog
.ShowDialog(Me)
TextBox1.AutoWordSelection = True
TextBox1.ScrollBars = RichTextBoxScrollBars.Vertical
TextBox1.WordWrap = True
If .FileName = "" Then GoTo line
TextBox1.LoadFile(.FileName, _
RichTextBoxStreamType.RichText)
End With
File Is Large Up to 5 MB