Dim 新字体 As New Font("SimSon", 24, FontStyle.Strikeout)
TextBox1.Font = 新字体
.NET 做法，6.0 忘了，你看 MSDN 吧，很多版本的函数，这个是把字体改为宋体、24 Point 大小、中间有删除线
textbox.font
Private Sub Command1_Click()
Me.Text1.Font = "黑体"
Me.Text1.FontSize = 22
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024