test.txt

来自「在工程中引用 Microsoft Scripting Runtime 就可以了」· 文本 代码 · 共 10 行

sub main()
  For i = 0 To Screen.FontCount
    Combo1.AddItem Screen.Fonts(i)
  Next
  combo1.listindex=0
  call a
end sub
sub a
  msgbox "完成",,"提示..."  
end sub