[VB6] Property Get e Let

[Brainjar]

Errata corrige.

Private Property Get BStyle() As Integer
  BStyle = mStyle
End Property

Private Property Let BStyle(ByVal sNewValue As Integer)
  mStyle = sNewValue
  stile mStyle
End Property

Riciao,