Visual Basic - Escribir textos en un UserControl

Hola. Ya que esto no me premite escribir mucho texto, lo pondre en varios mensajes.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»

Tengo un UserControl en el que escribo un texto ya sea con "Print" o con la funcion API "Drawtext". Ademas, hago que el fondo del UserControl se vuelva transparente y muestre el texto. Pero el detalle es que, si el texto contiene mas de 397 caracteres, y muestro el texto completo en una sola linea (y por tanto, no se puede ver completo en el UserControl) se transparenta perfectamente. Pero si hago que se muestre el texto completo de la forma que dire a continuación, no se transparenta el fondo si el texto sobrepasa los 397 caracteres.

Os pongo el codigo en el siguiente mensaje a ver si os pasa lo mismo. (Lo pongo con "Print")

Primer ejemplo:

Si escribimos lineas de 50 caracteres hasta llegar a los 397 caracteres mostrando asi el texto completo se transparenta, pero si se añade un caracter mas no se transparenta.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»

Option Explicit

Private Sub UserControl_Initialize()
UserControl.Width = 4290
UserControl.Height = 1770
UserControl.AutoRedraw = True
UserControl.BackStyle = 0

Print "123456789 123456789 123456789 123456789 123456789"
Print "123456789 123456789 123456789 123456789 123456789"
Print "123456789 123456789 123456789 123456789 123456789"
Print "123456789 123456789 123456789 123456789 123456789"
Print "123456789 123456789 123456789 123456789 123456789"
Print "123456789 123456789 123456789 123456789 123456789"
Print "123456789 123456789 123456789 123456789 123456789"
Print "123456789 123456789 123456789 123456789 1234567"

UserControl.Picture = UserControl.Image
UserControl.MaskPicture = UserControl.Picture
End Sub

Segundo ejemplo:

Si escribimos mas de 397 caracteres (en esta ocasion son 400) en una sola linea no se muestra el texto completo, pero se transparenta:

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»

Option Explicit

Private Sub UserControl_Initialize()
UserControl.Width = 4290
UserControl.Height = 1770
UserControl.AutoRedraw = True
UserControl.BackStyle = 0

Print "123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"

UserControl.Picture = UserControl.Image
UserControl.MaskPicture = UserControl.Picture
End Sub

Tercer Ejemplo:

Si escribimos 397 caracteres en una sola linea en el codigo pero añadiendo vbCrLf se transparenta, pero si se añade un caracter mas no se transparenta.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»

Option Explicit

Private Sub UserControl_Initialize()
UserControl.Width = 4290
UserControl.Height = 1770
UserControl.AutoRedraw = True
UserControl.BackStyle = 0

Print "123456789 123456789 123456789 123456789 123456789" & vbCrLf & "123456789 123456789 123456789 123456789 123456789" & vbCrLf & "123456789 123456789 123456789 123456789 123456789" & vbCrLf & "123456789 123456789 123456789 123456789 123456789" & vbCrLf & "123456789 123456789 123456789 123456789 123456789" & vbCrLf & "123456789 123456789 123456789 123456789 123456789" & vbCrLf & "123456789 123456789 123456789 123456789 123456789" & vbCrLf & "123456789 123456789 123456789 123456789 1234567"

UserControl.Picture = UserControl.Image
UserControl.MaskPicture = UserControl.Picture
End Sub

He puesto las 3 combinaciones junta poniendo 2 como comentarios para no tener que poner 3 ejemplos diferentes, vosotros quitais y poneis la marca de comentario en las que os interese ver en cada momento.

No he probado mas combinaciones pero no creo que haga falta ya que hagas lo que hagas, solo transparenta si el texto no supera los 397 caracteres.
A ver si alguien sabe por que para esto. Por que yo ya me estoy volviendo loco.

Gracias y saludos.

Hola Kulber.

Lo siento mucho, he probado todos tus ejemplos, y a mi siempre me transparenta, aunque añada más caracteres.

Ya sabes, a veces la programación es un 'Proceso Aleatorio'

Chao.

Yo tengo una una targeta de video de 32Mb. ¿Es posible que tu tengas una mayor? Si es asi, ¿es posible que sea esa limitacion? (esto es una pregunta al aire, simplemente por si lo sabes).

Gracias igualmente.

Saludos.

No tengo ni idea.
Mi Targeta gráfica es de 128MB, pero no creo que sea por eso.

Lo siento, chao.