VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "HTMLFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Sub CreateSourceCode()
    
    frmHTML.Show

End Sub

Public Property Get SourceCode()
    
    SourceCode = frmHTML.SourceCode

End Property

Public Property Let SourceCode(NewValue)
    
    MsgBox "SourceCode is a read-only variable", vbExclamation

End Property
