不同的字体只能通过使用不同的控件来实现，比如两个label控件使用不同的字体，然后排版好，看起来效果就是一段文字设置了不同字体。
还有一种方法就是使用richtextbox，这个控件功能很多，甚至还能插入图片和flash，在一段文字中设置不同字体和颜色当然不在话下。
添加方法：
工程-->部件-->找到Microsoft Rich Textbox Control 6.0-->确定
然后在Form中添加一个RichTextbox控件，命名为RichTextBox1
代码部分：
Private Sub Form_Load()
RichTextBox1.SelFontSize = "30"
RichTextBox1.SelFontName = "楷体_GB2312"
RichTextBox1.SelText = "字体1" & vbCrLf
RichTextBox1.SelFontSize = "30"
RichTextBox1.SelFontName = "宋体"
RichTextBox1.SelText = "字体2"
End Sub
运行后可以看到图片中的效果
朋友，我不知道你要的是什么样的效果，我给你做的不知道是不是？
你先在窗体上放一个label和combobox,然后输入以下代码：
Private Sub Combo1_Click()
Label1.FontName = Combo1.Text
End Sub
Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "华文彩云"
Combo1.AddItem "楷体_gb2312"
End Sub
运行点击combobox就可以看到效果啦！如果还有什么不清楚的，请发下消息，我给你说清楚，或者做个程序给你
