Que tal!
Intenté con el código que me proporcionaste, pero me marca error (todas las letras rojas), realizé algunas modificaciones y lo coloqué así:
Código:
Private Sub negrita_Click()
If txtcontenido.Font.Bold = False Then:
txtcontenido.Font.Bold = True
Else:
txtcontenido.Font.Bold = False
End If
End Sub
Pero al correrlo me sale un error:
"Error de compilación:
Else sin If"
¿Ahora cuál será el error ?
Muchas gracias.