大神帮忙~高级语言编程的VB问题

我。List1。清楚的

做

我。List1。添加项目屏幕。字体(一)

i = i + 1

循环直到屏幕。字体(i) = " "

末端接头

私有子列表1_Click()

我。Label1。FontName = List1。列表(List1。列表索引)

我。Label1。Caption =我。Label1。字体名称

末端接头