VB控件属性如何出现系统所有字体类型？

制作VB控件，希望有个FontName属性能列出当前系统所有字体名
点属性窗口能出来一个下拉菜单选某个系统字体，注意是下拉菜单 点属性窗口能出来一个