VB编写简单的记事本（模仿Windows)
新建功能：
Private Sub xinjian_Click()
Dim a As String
Dim b As Integer
a = "文件" + Caption + "的文字已经改变。" + Chr(13) + "想保存文件吗？"
If Text1.Text > "" Then b = MsgBox(a, vbApplicationModal + vbDefaultButton1 + vbYesNoCancel + vbExclamation, "记事本")
Select Case b
Case 6
CommonDial...