CTest.cls
上传用户:yayuwl
上传日期:2022-03-18
资源大小:8952k
文件大小:1k
- VERSION 1.0 CLASS
- BEGIN
- MultiUse = -1 'True
- Persistable = 0 'NotPersistable
- DataBindingBehavior = 0 'vbNone
- DataSourceBehavior = 0 'vbNone
- MTSTransactionMode = 0 'NotAnMTSObject
- END
- Attribute VB_Name = "CTest"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = True
- Private m_oApp As Object
- Public Property Set Application(ByVal vNewValue As Object)
- Set m_oApp = vNewValue
- End Property
- Public Sub ShowForm()
- Set frmTest.Application = m_oApp
- frmTest.Show
- End Sub