Private Sub RTFBOX_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim myFonts As New InstalledFontCollection
 
        For Each oFont As FontFamily In myFonts.Families
            Debug.Print(oFont.Name)
            ListBox1.Items.Add(oFont.Name)
            ListBox1.SelectedIndex = 0
        Next
 
    End Sub

 Private Sub ListBox1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles ListBox1.Click
 
        ListBox1.SelectedItem = _rtf.Font
 
    End Sub