Option Explicit
Dim FileNum

Private Sub Image2_Click()
frmTemplate.txtUserArea.SelBold = True
End Sub

Private Sub Image3_Click()
frmTemplate.txtUserArea.SelItalic = True
End Sub

Private Sub Image4_Click()
frmTemplate.txtUserArea.SelUnderline = True
End Sub

Private Sub smnuCopy_Click()
Clipboard.Clear
Clipboard.SetText frmTemplate.txtUserArea.SelText
End Sub

Private Sub smnuCreate_Click()
 
 FileNum = FreeFile
Open "C:\pp\Untitled.Txt" For Output As FileNum
Print #FileNum, frmTemplate.txtUserArea.Text
Close FileNum
End Sub

Private Sub smnuCut_Click()
Clipboard.Clear
Clipboard.SetText frmTemplate.txtUserArea.SelText
frmTemplate.txtUserArea.SelText = ""
End Sub

Private Sub smnuExit_Click()
End
End Sub

Private Sub smnuOpen_Click()
Dim Filter As String

Filter = "All Files (*.*)|*.* |"
Filter = Filter + "Text Files (*.txt) |*.txt|"
CommonDialog1.Filter = Filter
CommonDialog1.Action = 1
FileNum = FreeFile
Open CommonDialog1.FileName For Input As FileNum
frmTemplate.txtUserArea.Text = Input(LOF(FileNum), FileNum)
Close FileNum
frmTemplate.Caption = CommonDialog2.FileTitle
End Sub

Private Sub smnuPaste_Click()
frmTemplate.txtUserArea.SelText = Clipboard.GetText()
End Sub

Private Sub smnuSaveAs_Click()
Dim Filter As String
Filter = "Text Files (*.txt) |*.txt|"
CommonDialog2.Filter = Filter
CommonDialog2.FileName = "Untitled.txt"
CommonDialog2.Action = 2
FileNum = FreeFile
Open CommonDialog2.FileName For Output As FileNum
Print #FileNum, frmTemplate.txtUserArea.Text
Close FileNum
frmTemplate.Caption = CommonDialog2.FileTitle
End Sub

