heres 1 code:
imagine that lngOpacy property it's 20. why after sub2 it's 24(the lngOpacy property)?
Code:
Public Property Get Opacy() As Long
Opacy = lngOpacy
End Property
Public Property Let Opacy(ByVal vNewValue As Long)
lngOpacy = vNewValue.
PropertyChanged "Opacy"
End Property
public sub get()
sub2(argument1, lngOpacy)
end sub
private sub sub2(arguament1 as long, alpha as long)
alpha=alpha+4
end sub.