最后30分：怎么获得系统字体添加到ListBox选项中，还有怎么修改字形

最后30分：如何获得系统字体添加到ListBox选项中，还有如何修改字形？


我想用VB.net实现以上两个功能，并存入Access数据库：
1.获取系统字体的列表，并且添加到ListBox的选项中？
2.修改那些属性，可以给字体加上粗体，斜体，下划线，删除线？
求具体代码求方法求帮助，感激不尽，最后的冲刺了，求帮帮忙~

------解决方案--------------------
1、

 For Each AllFonts In System.Drawing.FontFamily.Families

            ListBox1.Items.Add(AllFonts.Name)

        Next

2、

 Dim newStyle As FontStyle = FontStyle.Regular

        If CheckBox1.Checked Then '粗体

            newStyle = newStyle Or FontStyle.Bold

        End If

        If CheckBox2.Checked Then '斜体

            newStyle = newStyle Or FontStyle.Italic

        End If

        If CheckBox3.Checked Then '下划线

            newStyle = newStyle Or FontStyle.Underline

        End If

        If CheckBox4.Checked Then '删除线

            newStyle = newStyle Or FontStyle.Strikeout

        End If


        '设置窗体字体属性

        Me.Font = New Font(ListBox1.Items(ListBox1.SelectedIndex), newStyle)