Sub GetFont()For i=0 To Screen.FontCount-1For j=0 To Printer.FontCount-1If Screen.Fonts(i)=Printer.Fonts(j) ThenList1.Add1tem (Sereen.Fonts(i))End IfNext jNext iEnd Sub
我擦,这不是数车?