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 = 22End Sub