Q. Is there an error in the below code?

Private _dblBonus As Double
Public ReadOnly Property Bonus As Double
Set(ByVal value As Decimal)
_dblBonus = value
End Set
End Property

• (A) No error
• (B) Runtime Error
• (C) Compilation Error
• (D) Syntax error