vb.net - 特定のフォントが強調表示された状態で FontDialog を開く

Question

標準のファイル保存ダイアログまたはファイルを開くダイアログを開くと、フォルダーとファイルの種類のデフォルトを設定できます。
現在選択されているフォントでフォント ダイアログを呼び出す方法はありますか? 言い換えれば、何らかの理由でルシンダ カリグラフィーをハイライトされたフォントとして開きたい場合、それが現在の選択として開かれます。

Answer 1

Private Sub button1_Click(sender As Object, e As System.EventArgs)
      Dim fontDialog1 As FontDialog = New FontDialog;
      fontDialog1.Font = new Font("Lucida Calligraphy", 10.0F)

      If fontDialog1.ShowDialog() <> DialogResult.Cancel Then
          textBox1.Font = fontDialog1.Font
          textBox1.ForeColor = fontDialog1.Color
      End If
  End Sub 'button1_Click