frmNotepad

Private Sub Form_Resize()
'Jika ukuran form berubah, ukuran text1 menyesuaikan
Text1.Height = Me.ScaleHeight
Text1.Width = Me.ScaleWidth
End Sub

Private Sub mnuAbout_Click()
MsgBox "Program Editor Teks" & Chr(13) & _
"Oleh Masino Sinaga", vbInformation, "About"
End Sub

Private Sub mnuExit_Click()
End 'Keluar program
End Sub

Private Sub mnuOpen_Click()
On Error GoTo Batal 'Jika batal membuka pergi ke Batal
'Hanya file txt yg bisa dibuka
CommonDialog1.Filter = "*.txt|*.txt"
'Tampilkan kotak dialog buka file
CommonDialog1.ShowOpen
'Buka file, lalu tempatkan isi file di text1.text
Open CommonDialog1.FileName For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1 'Tutup file
Batal: 'Label jika batal membuka file
Exit Sub 'Langsung keluar dari prosedur ini
End Sub

Private Sub mnuSave_Click()
On Error GoTo Batal 'Jika batal menyimpan file pergi ke Batal
'Hanya file txt yg bisa disimpan
CommonDialog1.Filter = "*.txt|*.txt"
'Tampilkan kotak dialog simpan file
CommonDialog1.ShowSave
'Simpan yg ada di text1.text ke file
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1 'Tutup file
Batal: 'Label jika batal menyimpan
Exit Sub 'Langsung keluar dari prosedur ini
End Sub