Primer 15c: Testiranje rada sa objektima klasa Vreme i Titl: ilustracija tacka-notacije
'"Obican" Modul Cas7
Option Explicit

Sub testTitl()
    Dim objTitl As Titl
    Set objTitl = New Titl
    'moze i odjednom
    'dim objTitl as New Titl
    
    'konstruktor
    objTitl.init "01:55:56,000", "01:56:59,000", "The End"
    'ispis
    MsgBox objTitl.formatiraj, vbInformation, "Polazni titl"
    'promena granica titla za +00:06:24,000
    objTitl.azuriraj "+00:06:24,000"
    'ispis
    MsgBox "promena granica titla za +00:06:24,000" & vbNewLine & objTitl.formatiraj, vbInformation, "Titl posle 1. azuriranja"
    'promena granica titla za -00:06:24,000
    objTitl.azuriraj "-00:59:59,000"
    'ispis
    MsgBox "promena granica titla za -00:59:59,000" & vbNewLine & objTitl.formatiraj, vbInformation, "Titl posle 2. azuriranja"
End Sub