main.bas

此源码为vb圣经编码

Attribute VB_Name = "modMain"
'***************************************************************
' (c) Copyright 2000 Matthew J. Curland
'
' This file is from the CD-ROM accompanying the book:
' Advanced Visual Basic 6: Power Techniques for Everyday Programs
'   Author: Matthew Curland
'   Published by: Addison-Wesley, July 2000
'   ISBN: 0-201-70712-8
'   http://www.PowerVB.com
'***************************************************************
Option Explicit

Sub Main()
Dim Derived As Derived
Dim Base As Base
    InitVBoost
    Set Base = New Derived
    MsgBox Base.OverrideMe
End Sub