可以了,谢谢你,顺便还问你个问题,我font按纽是设置获取系统的字体大小,颜色之类,send按纽是将Text1里面的字发送到Picture1中,颜色、大小可以发送,但是就是这个Name不行,帮我看看,提示实时错误'380'
'系统字体
Private Sub font_Click()
Text1.font.Name = CommonDialog1.FontName
End Sub
'Picture1控件上显示的字体
Private Sub send_Click()
Picture1.FontName = Text1.FontName
End Sub