Muy bueno Shordi.
Una sugerencia por si quieres hacer el formulario independiente de la imagen de transparencia.
Una sugerencia por si quieres hacer el formulario independiente de la imagen de transparencia.
Código:
Public Sub Form_Open()
ToolButton1.Picture = Brush().Picture
End
Private Function Brush() As Image
Dim im As Image
Dim i, j As Integer
im = New Image(32, 32, &BFBFBF, Image.Standard)
im.PaintRect(im.W / 2, 0, im.W / 2, im.H / 2, &H5F5F5F)
im.PaintRect(0, im.W / 2, im.W / 2, im.H / 2, &H5F5F5F)
Return im
End1 Saludo.