Program in visual basic using common dialog control and menu editor to design following menu.

Private Sub close_Click()
Text1.Text = ""
Close #1
End Sub

Private Sub OP_Click()
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub

Private Sub SV_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub SVS_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
End Sub