Labels:sky | web site OCR: Private Sub mnusave Click(ByVal sender U.. Svstem Object BvVal Dim iResult Dia logResult SaveFileDialogi Title Name for the File" "Rich Text Format rtf rtfn SaveFileDialogl ddExtensi ion True SaveFileDialogi Ove JY itePrompt True SaveFileDia logi InitialD irector SaveFileDia log1 FileName iResult logi ShowDialog() iResult T- ndows Forms Dia logResult Cancel And SaveFileDial log1 ileName Length Then txtEdi tor SaveFile SaveF ileDi ialogl Name) StatusLabeli Text OpenFileDialog1 leName End End Sub Filter AddExtension ileDia ompt Windows Tile Save OpenF ileDialogi
