>>987
仕切っているところを見ると2ch初心者ですか?

>>885
Dim ft As New FontDialog()

ft.Font = TextBox1.Font
ft.ShowDialog()
TextBox1.Font = ft.Font