vb.net 字体如何设置？（font，fontfamily）

我想用domainUpDown控件控制字体和颜色，用NumericUpDown控件控制字体的大小，写了如下代码，但是总报错，为什么？
请详细告知font的用法！越详细越好，也可以是别的网站的链接，因为答案会很长，所以有满意答案送50分！
-------------------------------------------------------------
控件 name 备注
lable lbllblHello lable控件，内容是“hello”
domainUpDown domFontname 控制“hello”的字体，初始化中列出四种
NumericUpDown domFontsize 控制“hello”的大小，范围50-100
domainUpDown domFontcolor 控制“hello”的颜色，初始化中给出四种
----------------------------------------------------------
Public Class Form2
‘’‘ 初始化
Private Sub from() Handles MyBase.Load
’ 初始化字体列表
domFontname.Items.Add("Arial")
domFontname.Items.Add("Batang")
domFontname.Items.Add("MS PGosic")
domFontname.Items.Add("Algerian")
domFontname.ReadOnly = True

domFontsize.ReadOnly = True

‘ 初始化文字颜色列表
domFontcolor.Items.Add("blue")
domFontcolor.Items.Add("red")
domFontcolor.Items.Add("orange")
domFontcolor.Items.Add("white")
domFontcolor.ReadOnly = True

domFontname.Text = "Arial"
domFontsize.Value = "50"
domFontcolor.Text = "blue"
End Sub
’‘’ 当三个控件发生改变时，“hello”的字体发生变化
Private Sub Font_TextChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles domFontname.TextChanged, _
domFontsize.ValueChanged, _
domFontcolor.TextChanged
‘ 下面这句报错，我写成myfongFamily = New FontFamily(domFontname.Text)
’ lblHello.Font = New Font(FontFamily, domFontsize) 这样也报错
lblHello.Font = New Font(New FontFamily(domFontname.Text), domFontsize)‘ 这句报错
lblHello.ForeColor = Color.Blue
End Sub

End Class
lable控件的name是lblHello,不是lbllblHello，这里我写错了，程序里没写错~

---

可以利用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

---

不如直接拖两个控件让用户选，一个选择字体的一个选择颜色的，字体颜色就是ForeColor属性，字体旅圆还是Font属性，然后用户选择以后，就this.目标控件.Font(或.ForeColor)=字体或字体颜州镇世色空间所选册肢择的字体或颜色。

---