球大神 指教
怎么改变 label 中个别字符串字体颜色呢

比如像以下效果

从VB中，在工具箱上右击，从弹出的菜单里选择“部件”，从弹出的窗口里找到“Microsoft  Rich  Textbox  Control  6.0”选中这一项，然后单击“确定”，这时，原有的工具箱里就多了一个图标类似于写字板图标的图标（这个图标的右下角是一个红色并倾斜的“A”，有好几道蓝杠，左上角有一个正方形），单击该图标，从窗体上画一个这个控件，这个控件名是RichTextBox，假设你画的RichTextBox的控件名叫RichTextBox1，下面，我就给你演示一下它的使用方法：

1.想要把选中的文本的颜色变为红色，代码是：
RichTextBox1.SelColor = vbRed
变成绿色就是：
RichTextBox1.SelColor = vbGreen
变成其他颜色就是：
RichTextBox1.SelColor = 你想要的颜色

2.想要把你选中的文本的字号变成36号，代码就是：
RichTextBox1.SelFontSize=36
变成48号：
RichTextBox1.SelFontSize=48
变成其他字号就是：
RichTextBox1.SelFontSize=你想要的字号

3.想要把你选中的文本加上或取消一些特殊标记：
加入下划线：
RichTextBox1.SelUnderline = True
取消下划线：
RichTextBox1.SelUnderline = False
加入删除线：
RichTextBox1.SelStrikeThru = True
取消删除线：
RichTextBox1.SelStrikeThru = False
将选中的文本倾斜：
RichTextBox1.SelItalic = True
将选中的文本取消倾斜：
RichTextBox1.SelItalic = False
将选中的文本加粗：
RichTextBox1.SelBold = True
将选中的文本取消加粗：
RichTextBox1.SelBold = False

4.把你选中的文本字体变成宋体
RichTextBox1.SelFontName = 宋体
变成黑体：
RichTextBox1.SelFontName = 黑体
变成其他字体：
RichTextBox1.SelFontName = 你想要的字体