www.pudn.com > vb-Polymorphic-interface.rar > AbstractClass.cls, change:2013-02-16,size:738b


VERSION 1.0 CLASS 
BEGIN 
  MultiUse = -1  'True 
  Persistable = 0  'NotPersistable 
  DataBindingBehavior = 0  'vbNone 
  DataSourceBehavior  = 0  'vbNone 
  MTSTransactionMode  = 0  'NotAnMTSObject 
END 
Attribute VB_Name = "AbstractClass" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = False 
Attribute VB_Exposed = True 
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes" 
Attribute VB_Ext_KEY = "Top_Level" ,"Yes" 
' 
'------------- 
 
Option Explicit 
 
Public Event WarnVolume() 
 
 
Public Property Let currentVolume(ByVal vData As Variant) 
 
End Property 
 
Public Property Get currentVolume() As Variant 
 
End Property 
 
 
Public Sub VolumeCheck() 
 
End Sub