compile error with DLL

[DebbieInFlorida]

This is most annoying, I get this error on a compile, but the DLL is very simple..

Definitions of property procedures for the same property are inconsistent, or property procedure has an otpional parameter, a ParamArray, or an invalid Set final parameter..

THis is really holding me up, I can't go anywhere till this is fixed.

code:
Option Explicit

Private m_pFeature As esrigeodatabase.IFeature
Private m_LocationID As Long
Private m_Radius As Single

Public Property Set Feature(ByVal vData As esrigeodatabase.IFeature)
Set m_pFeature = vData
End Property
Public Property Get Feature() As esrigeodatabase.IFeature
Set Feature = m_pFeature
End Property

Public Property Set LocationID(ByVal vData As Long)
m_LocationID = vData
End Property
Public Property Get LocationID() As Long
LocationID = m_LocationID
End Property

Public Property Set Radius(ByVal vData As Single)
m_Radius = vData
End Property
Public Property Get Radius() As Single
Radius = m_Radius
End Property

Private Sub Class_Terminate()
Set m_pFeature = Nothing
End Sub



'''' Containing Class.....

Private mCol As Collection


Public Function Add(pFeature As esrigeodatabase.IFeature, lLocationID As Long, pRadius As Single)
'create a new object
Dim objNewMember As clsPolygonProp
Set objNewMember = New clsPolygonProp
Set objNewMember.Feature = pFeature
objNewMember.LocationID = lLocationID
objNewMember.Radius = pRadius
mCol.Add objNewMember

Set Add = objNewMember
'Set objNewMember = Nothing

End Function

Thanks for any input..

[si_the_geek]

Moved from FAQ forum