可以利用font 设置。设置方法如下：
创新互联公司是一家专注于成都网站设计、成都网站建设、外贸网站建设与策划设计,灵丘网站建设哪家好?创新互联公司做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:灵丘等地区。灵丘做网站价格咨询:18982081108
TextBox1.Font = New System.Drawing.Font("宋体", 10)
也可以通过字体对话框来实现 如：
Private Sub myButton_Click(sender As Object, e As EventArgs)
Dim myFontDialog As FontDialog
myFontDialog = New FontDialog()
If myFontDialog.ShowDialog() = DialogResult.OK Then
' Set the control's font.
myDateTimePicker.Font = myFontDialog.Font
End If
End Sub
给点提示吧，已粗体为例（完全是我自己的方法，不知别人是怎么做的）：
'先获取选择的字体信息（字体、大小、样式。。。）
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候，不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
这个是可以使用api来做的。图像处理之类的函数。
另外，还有一种方法是将所有的字符和数字做成不同的小图片进行拼接而成的一个字符串序列；
小图片要自己去做；效果就可以任意展现了。
看样要重新定义个Font对象，在构造函数中定义它的大小，
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。
End With