Definindo a fonte para um TextBox de múltiplas linhas usando um diálogo FontDialog

'Este exemplo mostra como definir a fonte
'para uma caixa de texto de múltiplas linhas
'usando um FontDialog. Para testar coloque um
'componente FontDialog no formulário e defina sua
'propriedade Name para "FontDialog1".

Public Class Form1

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

    FontDialog1.ShowColor = True

    FontDialog1.Font = TextBox1.Font
    FontDialog1.Color = TextBox1.ForeColor

    If FontDialog1.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
      TextBox1.Font = FontDialog1.Font
      TextBox1.ForeColor = FontDialog1.Color
    End If

  End Sub

End Class