Dim myFont As System.Drawing.Font If MakeBold Then myFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25, FontStyle.Bold) Else myFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25, FontStyle.Regular) End If Button.Font = myFont