フォント一覧コンボボックスを作って使いたい

エクセルとかでよく見る、フォントのコンボボックスを変更すると、
現在のセルのフォントが変わるようなことをVBでやりたいです。

例えば、コンボボックスにＭＳゴシックとかＭＳ明朝とか使用可能なフォントを表示し、
このコンボボックスで選択したフォントをテキストボックスのフォントに反映させるには
どうすればよいでしょうか？

こんなのはどうでしょうか？

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ComboBox1.DataSource = (New System.Drawing.Text.InstalledFontCollection()).Families



        ComboBox1.DisplayMember = "Name"

    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Font = New Font(DirectCast(ComboBox1.SelectedItem, FontFamily), 9.0!)

    End Sub

ありがとうございました。
うまくいきました。