Приветствую, сограждане! Пишу контрол. Одно из свойств его должно быть шрифтом. Пишу так:

Property Get Test() as StdFont
.....
End Property

и соответственно

Property Set Test(ByVal NewValue as StdFont) 
.....
End Property

При использовании данного свойства открывается окошко с установками шрифтов. Однако при попытке применить выбранный шрифт выскакивает сообщение "Invalid property value". И вот не пойму, что не так.

 

Так, все получилось. Вопрос снят. Всем спасибо.