Fuente, tamaño y estilo

Para cambiar el estilo de un texto (en esta entrada la fuente)


       Dim fuente As String = Label1.Font.Name
        Dim tamanyo As Integer = Label1.Font.Size
        Dim estilo As FontStyle = Label1.Font.Style

        Label1.Font = New System.Drawing.Font(CStr(sender.text), tamanyo, estilo)

guardamos el estilo por defecto del label y luego le volvemos a darle el mismo estilo, cambiando la fuente por sender.text (que en este caso podría ser arial,verdana...)