VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cLyricBlock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Objeto que guarda informações de um bloco de linhas (não os possui, apenas guarda info)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Guarda o nome do objeto
Private Const ST_MY_NAME As String = "cLyricBlock"

' Info inicial do bloco
Private ln_Start As Long

' Info final do bloco
Private ln_End As Long

' Info de número de linhas
Private ln_Lines As Long

' Info de número de words
Private ln_Words As Long


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Propriedade do Start
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get StartLine() As Long
    
    ' Retorna
    StartLine = ln_Start
End Property

Public Property Let StartLine(lnInput As Long)
    
    ' Guarda
    ln_Start = lnInput
End Property


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Propriedade do End
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get EndLine() As Long
    
    ' Retorna
    EndLine = ln_End
End Property

Public Property Let EndLine(lnInput As Long)
    
    ' Guarda
    ln_End = lnInput
End Property


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Propriedade de Lines
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get LineCount() As Long
    
    ' Retorna
    LineCount = ln_Lines
End Property

Public Property Let LineCount(lnInput As Long)
    
    ' Guarda
    ln_Lines = lnInput
End Property


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Propriedade de Words
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get WordCount() As Long
    
    ' Retorna
    WordCount = ln_Words
End Property

Public Property Let WordCount(lnInput As Long)
    
    ' Guarda
    ln_Words = lnInput
End Property