hola amigos, resulta que estoy trabajando con forms MDI y tengo el siguiente empacho:
Case "Cursiva"
ActiveForm.rtfText.SelItalic = Not ActiveForm.rtfText.SelItalic
Button.Value = IIf(ActiveForm.rtfText.SelItalic, tbrPressed, tbrUnpressed)
esto fue echo con el wizar de vb y resulta que eso hace que el Rich del formulario activo salgan las letras en cursiva.
pero yo tengo este codigo y quiero adaptarlo para que funcione :
Option Explicit
Dim a As Long
Private Sub Command2_Click()
a = Text1.SelStart
Text1.SelText = "<I>" & Text1.SelText & "</I>"
End Sub
esto coloca texto en un Text.
Eso ews pues amigos ......me ayudan?
<a href='ir.asp?http://nicolasrivera.tk' target='_blank'>http://nicolasrivera.tk...</a>