Private Sub Command1_Click()
Label1.FontName = List1.List(List1.ListIndex)
Label1.FontSize = Val(Combo1.Text)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To Screen.FontCount
List1.AddItem Screen.Fonts(i)
Next
List1.ListIndex = 0
For i = 8 To 76
Combo1.AddItem i
Next
Combo1.ListIndex = 6
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024