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