[dba-VB] VB2005 Programmatically set text box font values

Hi Stuart,

	<<Private Sub chkBoxes_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles chkBold.CheckedChanged,
chkItalic.CheckedChanged
        Dim intFontAttribs As Integer
        intFontAttribs = IIf(chkBold.Checked, FontStyle.Bold, 0) +
IIf(chkItalic.Checked, FontStyle.Italic, 0)
        txtmyText.Font = New Font(txtmyText.Font, intFontAttribs)
    End Sub>>

 	Thanks, it's so simple when you know what you're doing :-)

Pete

"Many [wargame] battles have been fought and won by soldiers nourished on
beer" - Frederick the Great, 1777
Download VIEW FROM THE TRENCHES (Britain's Premier ASL Journal) free from
http://www.vftt.co.uk
Get the latest news about HEROES(ASL in Blackpool) at
http://www.vftt.co.uk/heroesdetails.asp
Get the latest news about INTENSIVE FIRE (Britain's biggest ASL tournament)
at http://www.vftt.co.uk/ifdetails.asp
Get the latest UK ASL Tournament news at http://www.asltourneys.co.uk
Support the best at http://www.manutd.com/