Permiteme decirte que necesitas crear un nuevo control ActiveX para eso.
Una idea seria combinar el propio RichTexBOx con un control Shape.
Ejemplo:
Inserta un control Shape ademas del richTexBox que ya tendrias.
Para que se viera bonito deberas tambien establecer en tiempo de diseño las propiedades Appearance = 0 - rtfFlat y BorderStyle = 0- rtfNoBorder del richTexBox.
Finalmente, pega el siguiente
Private Sub Form_Load()
Shape1.BorderStyle = 1
Shape1.BorderColor = vbGreen
Shape1.Left = RichTextBox1.Left - 50
Shape1.Top = RichTextBox1.Top - 50
Shape1.Height = RichTextBox1.Height + 100
Shape1.Width = RichTextBox1.Width + 100
End Sub
Luego me cuentas que tal te fue..
Mucha suerte loko
Autor
En línea
