呵呵,谢分享,你要的:
For Each fnt As System.Drawing.FontFamily In System.Drawing.FontFamily.Families output.show(fnt.Name)Next