test.txt

在工程中引用 Microsoft Scripting Runtime 就可以了!具体看代码! 可以使用任何vbs脚本的功能!注意是使用vbs脚本的语法

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