module1.bas

这个源代码可以实现基本的文本编辑功能

Attribute VB_Name = "Module1"
Option Explicit
    Public fMainForm As frmMain

Sub main()
    Set fMainForm = New frmMain
    fMainForm.Show
    LoadNewDoc
End Sub
Public Sub LoadNewDoc()
    Static lDocumentCount As Long
    Dim frmD As frmDocument
    lDocumentCount = lDocumentCount + 1
    Set frmD = New frmDocument
    frmD.Caption = "文档" & lDocumentCount
    frmD.Show
    frmD.rtfText.SelColor = RGB(0, 0, 255)
End Sub