给点提示吧，已粗体为例（完全是我自己的方法，不知别人是怎么做的）：
成都创新互联公司2013年开创至今，先为平潭等服务建站，平潭等地企业，进行企业商务咨询服务。为平潭企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
'先获取选择的字体信息（字体、大小、样式。。。）
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候，不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
可以利用font 设置。设置方法如下：
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
21×21mm。vb.netqrcode表示二维码的版本号，生成二维码尺寸大小为21×21mm。二维码又称二维条码，常见的二维码为QRCode，QR全称QuickResponse，是一种编码方式。