Egenskabsprocedurer - formål med dem?

Hej igen! Jeg har 3 specifikke spørgsmål jeg meget gerne vil have besvaret:

1.
Hvorfor er det overhovedet nødvendigt at have egenskabsprocedurer? Man kan vel bare bruge variable som repræsentant for en egenskab?

2.
Bruger man kun egenskabsprocedurer i forbindelse med klassemoduler, eller kan man også bruge dem i andre sammenhænge, hvor man bare har et formmodul/standardmodul?

3.
Når man fx. skriver

public property get person()
person = person_navn
end property

så kan man læse egenskaben person sådan:

(objektnavn).person

men hvis man nu ikke har lavet et objekt, men kun en egenskabsprocedure, hvad sætter man så ind i stedet for objektnavn...er det navnet på formen?

Jeg har nemlig følgende eksempel:

---------------------formmodul 1-------------------------

Option Explicit

Private Sub Command1_Click()
  frmDialog.Show
End Sub

Private Sub Command2_Click()
  frmDialog.Overskrift = Text1.Text
  frmDialog.Sekunder = Text2.Text
End Sub

Private Sub Form_Load()
    Load frmDialog
End Sub

------------------------------------------------------------

----------------------formmodul 2 --------------------------
Option Explicit
Private nSekunder As Integer, nSlut As Integer

Public Property Get Sekunder()
  Sekunder = nSekunder
End Property

Public Property Let Sekunder(vNewValue)
  nSlut = vNewValue
  nSekunder = 0
End Property

Public Property Let Overskrift(vNewValue)
  txtShow.Text = vNewValue
  frmDialog.Refresh
End Property

Private Sub Form_Activate()
Timer1.Enabled = True
Timer1.Interval = 1000
nSekunder = 0
End Sub

Private Sub Form_Load()
  frmDialog.Overskrift = ""
  nSekunder = 0
  nSlut = 0
End Sub

Private Sub Timer1_Timer()
  nSekunder = nSekunder + 1
  Label1.Caption = nSekunder
  If nSekunder >= nSlut Then
    Timer1.Enabled = False
    frmDialog.Hide
  End If
End Sub

--------------------------------------------------------------

det er 2 vinduer, hvor den ene styrer den anden. Kan I forklare mig hvad man bruger følgende til:

Public Property Get Sekunder()
  Sekunder = nSekunder
End Property

for hvis jeg fjerner det sker der fuldstændig det samme!



Tak for hjælpen!