在VB.NET中，对象的字体、字号、样式等是通过Font属性设置的。总体格式是“ Object.Font = New Font（字体, 字号, 字形）”。例如：
在久治等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供做网站、成都网站制作 网站设计制作按需定制,公司网站建设,企业网站建设,品牌网站制作,全网整合营销推广,成都外贸网站建设,久治网站建设费用合理。
Label1.Font = New Font("宋体", 15, FontStyle.Underline)
Label1.Font = New Font("字体", 15, FontStyle.Regular)
Font.Size是只读属性，只能用于获取字号。例如：
Dim iSize As Int32 = Label1.Font.Size
Dim s() As String = TextBox1.Text.Split("/".ToCharArray)
For i As Integer = 0 To s.Length - 1
MsgBox("第" i.ToString "个字串：" s(i))
Next
首先找到第五行,就是找vbcrlf,然后找第三个数,就是找逗号
有两种办法,一种是纯字符串处理的办法,另一种是使用数组的办法,两种方法都很简单
纯字符串处理的办法适用于任何情况下,而使用数组因性能问题,只适用于源字符串不太大的情况下
使用数组的办法:
'所有字符串
Dim dString As String = "" '请为字符串赋值
Dim dLines = dString.Split({vbCrLf}, StringSplitOptions.None)
'至少有三行才能向下执行
If dLines.Length 3 Then Return
'获取第三行
Dim dRow = dLines(2).Split(","c)
'至少有4列才能向下执行
If dRow.Length 4 Then Return
'获取第4列
Dim dValue = dRow(3)
'dValue就是想要的数据
给点提示吧，已粗体为例（完全是我自己的方法，不知别人是怎么做的）：
'先获取选择的字体信息（字体、大小、样式。。。）
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候，不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
在VB中是这样的，没学过VB.net，你变换一下就可以了
按你说的，用用Left,Right和Mid
Option Explicit
Private Sub Command1_Click()
Dim Num(2)
Num(0) = Val(Left(Label1.Caption, 2))
Num(1) = Val(Mid(Label1.Caption, 3, 1))
Num(2) = Val(Right(Label1.Caption, 2))
MsgBox "Num(0)=" Num(0) vbCrLf "Num(1)=" Num(1) vbCrLf "Num(2)=" Num(2)
'如果想测试是不是可以计算，可以用这一句
'MsgBox "Num(0)+1=" Num(0) + 1 vbCrLf "Num(1)+1=" Num(1) + 1 vbCrLf "Num(2)+1=" Num(2) + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "12345"
End Sub
有问题请追问，满意请采纳！
工具-- 选项-- 环境-- 字体和颜色
剩下的自己看对话框吧！^_^
