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