Properties - PicInfo sample application

Form PicForm

Module PicMain

Class IPicInfo

Public  
Property Get Filename() As String
Property Get MaxColors() As Variant
Property Get Size() As IPicInfo.TPicSize

Class PicBMP

Implements IPicInfo
Private  
Property Get IPicInfo_Filename() As String
Property Get IPicInfo_MaxColors() As Variant
Property Get IPicInfo_Size() As IPicInfo.TPicSize

Class PicGIF

Implements IPicInfo
Private  
Property Get IPicInfo_Filename() As String
Property Get IPicInfo_MaxColors() As Variant
Property Get IPicInfo_Size() As IPicInfo.TPicSize
Friend
Property Get Version() As String

Color legend

Green Implements