TEXT PROGRAMA Опции

ZDRAVEITE IMAM SLEDNIQ PROBLEM KOGATO ZAPAMETQVAM TEKST S PROGRAMATA SI PROMENITE OT FORMATIRANETO NE SE ZAPAZVAT

za da zapametq teksta izpolzvam sledniq kod :

Try
SaveFileDialog1.Filter = "Text file|*.txt|Rtf|*.rtf|all files|*.*"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
PrintLine(1, RichTextBox1.Font)
FileClose(1)
End If
Catch ex As Exception
MessageBox.Show("Err")
End Try


6te mi pomognete li

Да, само изпълни следното:
Пиши на кирилица
Използвай [code][/code]
Форматирай си кода
Стига стоя VB...