ممكن كودات لعمل برنامج المفكرة

--------------------------------------------------------------------------------

السلام عليكم ورحمة الله

أريد أن أعمل برنامج (المفكرة)

والحمد الله عملت أشياء كثيرة ما بقي منها إلى بعض الكودات

وياليت تساعدونني فيها

وهي

كود لخاصية فتح الملف

والذي هو

Dim AllText, LineOfText As String

OpenFileDialog1.Filter = "Text files (*.TXT)|*.TXT"

OpenFileDialog1.ShowDialog() 'display Open dialog box

If OpenFileDialog1.FileName <> "" Then

Try 'open file and trap any errors using handler

FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

Do Until EOF(1) 'read lines from file

LineOfText = LineInput(1)

'add each line to the AllText variable

AllText = AllText & LineOfText & vbCrLf

Loop

lblNote.Text = OpenFileDialog1.FileName 'update label

Editor.Text = AllText 'display file

Editor.Select(1, 0) 'remove text selection

Editor.Enabled = True 'allow text cursor

mnuCloseItem.Enabled = True 'enable Close command

mnuOpenItem.Enabled = False 'disable Open command

Catch

MsgBox("Error opening file.")

Finally

FileClose(1) 'close file

End Try

End If

كما ترون أن الكود طويل

هل من طريقه لجعلها صغير وبسيط حيث يؤدي الغرض فقط

وكذلك لحفظ الملف ؟؟!!

وكذلك أريد كود لإدراج الجدول والصورة

وشكرا لكم

علما بأن البرنامج هو vb.net