VB.NET, C#, PowerShell Tipsサイト

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '下線、取消線を選択できるようにする
        FontDialog1.ShowEffects = True

        'フォントダイアログを表示
        If FontDialog1.ShowDialog = DialogResult.OK Then
            '選択されたフォントをテキストボックスに設定
            TextBox1.Font = FontDialog1.Font()
        End If
End Sub