Как сделать свойтвом контрола шрифт - VB

Формулировка задачи:

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

                    Листинг программы
                
Property Get Test() as StdFont
.....
End Property

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

                    Листинг программы
                
Property Set Test(ByVal NewValue as StdFont) 
.....
End Property

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

Решение задачи: «Как сделать свойтвом контрола шрифт»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim Fnt As New StdFont
Public Property Get Font() As Font
    Set Font = Fnt
End Property
Public Property Set Font(ByVal New_Font As Font)
    Set Fnt = New_Font
End Property