Переменная объекта не установлена ​​ошибка в vb6

Question

Private m_IncidentDateRange As New MCWebServiceCOMWrapper.DateRange

Public Property Get IncidentDateRange() As MCWebServiceCOMWrapper.DateRange
    IncidentDateRange = m_IncidentDateRange
End Property
Public Property Let IncidentDateRange(ByRef vNewValue As MCWebServiceCOMWrapper.DateRange)
    Set m_IncidentDateRange = vNewValue
End Property

Ошибка в методе Get, пожалуйста, помогите

Answer 1

Вам не нужно использовать "Set" там?

Answer 2

Я бы проверил документацию для объекта MCWebServiceCOMWrapper.DateRange и выяснил, требуется ли вам инициализировать его значениями, прежде чем вы сможете его использовать. (возможно установить дату начала и окончания).