Cambiar el tipo de fuente de un label

Si tenemos que cambiar por código la fuente, el tamaño de letra y el estilo debemos instanciar un objeto Font
Dim NuevaFuente As New Font("Courier New", 12, FontStyle.Bold)
lbTexto.Font=NuevaFuente

Label2.Font=New System.Drawing.Font("Webdings",72)
Label2.Text="Y"'Pone un bonito corazón en el label