Cambiar el estilo de un label

Se "suman" estilos con la función lógica OR ya que cada estilo equivale a una potencia de 2 (0,1,2,4,8) se "resta" con haciendo un AND del complemento

estilo = lbResultado.Font.Style 'Caputaramos el estilo actual
If cbNegrita.Checked Then 'Comprobamos si está marcado Negrita
estilo = estilo Or FontStyle.Bold ' Añadimos el estilo Bold (Negrita)
Else
estilo = estilo And Not FontStyle.Bold ' Quitamos el estilo Bold (Negrita)
End If
lbResultado.Font = New Font(lbResultado.Font, estilo) 'Asignamos el estilo al label

0000 'Regular
0010 OR 'Italic
0010 'Se pone en Italic ya que Solo es 0 si w y f es 0

0010 'Italic
1101 AND 'Complemento de Italic
0000 'Se queda en Regular ya que Sólo es 1 si w y f es 1

0010 'Italic
1110 AND 'Complemento de Bold
0010 'Se queda el Italic ya que el que queríamos quitar era Bold