Hola no entindi a que le llamas title.. digamos que no es transparente sino que parece serlo porque crea el efecto AlphaBlend por lo que porovoca la transparencia de una ventana asi que no es nesesario que sea una imagen tambien puede serlo un gradient te paso un ejemplo suponiendo que el gradient esta en el formulario y el boton tambein.
Agrega un boton1
Cita: Private Sub Form_Load()
Me.ScaleMode = vbPixels
Me.AutoRedraw = True
Boton1.Transparentia Me.hDC, 200, False, True, Boton1.Left, Boton1.Top
End Sub
Private Sub Form_Resize()
Dim i As Integer, y As Integer
For i = 0 To Me.ScaleWidth
Me.Line (0, y)-(Me.ScaleWidth, y + 1), RGB(0, i, 0), BF
y = y + 1
Next i
End Sub
no se nota mucho el efecto transparencia ya que el grandien no es tan remarcado.
Ahora si vos queres hacer que el grandient lo obtenga desde un picture como para crear una textura siendo que el formulario esta liso si imagen o gradient
pone un picture1 y un boton1 (para que funcione el picture siempre deve ser mayor en tamaño que el boton)
Cita: Private Sub Form_Load()
Picture1.ScaleMode = vbPixels
Picture1.AutoRedraw = True
Picture1.Visible = False
Dim i As Integer, y As Integer
For i = 0 To Picture1.ScaleWidth * 4 Step 4
Picture1.Line (0, y)-(Picture1.ScaleWidth, y + 1), RGB(0, 0, i), BF
y = y + 1
Next i
Boton1.Transparentia Picture1.hDC, 100, False, True
End Sub
Espero que se eso lo que me preguntabas, si no volve a preguntarme y
vemos
PD1: la chica es mi novia
Pd2: jeje ojala, no es una actriz Argentina Marcela kloosterboer y esta muy muy buena