Dim message, sapi
        message = "el ninio no sabe lo que es un monio en la cabeza"
        sapi = CreateObject("sapi.spvoice")
        sapi.rate = -5
        sapi.Speak(message)
 

        Dim message, sapi
        message = "el ninio no sabe lo que es un monio en la cabeza"
 
        sapi = CreateObject("sapi.spvoice")
        sapi.Speak(message)

Option Explicit
 
Public Property Get Picture() As Picture
    Set Picture = UserControl.Picture
End Property
 
Public Property Set Picture(ByVal New_Picture As Picture)
    Set UserControl.Picture = New_Picture
    PropertyChanged "Picture"
End Property
 
'Cargar valores de propiedad desde el almacén
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 
    Set Picture = PropBag.ReadProperty("Picture", Nothing)
End Sub
 
'Escribir valores de propiedad en el almacén
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
 
    Call PropBag.WriteProperty("Picture", Picture, Nothing)
End Sub

Private Sub Command1_Click()
UserControl_1.Picture = LoadPicture("")
End Sub

Private Sub Command1_Click()
 Set UserControl_1.Picture = LoadPicture("")
End Sub
 

Public Property Let Picture(ByVal New_Picture As Picture)
    Picture1.Picture = New_Picture
    PropertyChanged "Picture"
End Property

Imports System
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Drawing.Color
Public Class Form1
    <DllImport("gdi32")> _
    Private Shared Function CreateRectRgn(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
    End Function
    <DllImport("gdi32.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function CreateEllipticRgn(ByVal X1 As Integer, _
                    ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
    End Function
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function SetWindowRgn(ByVal hwnd As IntPtr, ByVal hRgn As Integer, ByVal bRedraw As Boolean) As Integer
    End Function
 
    <DllImport("user32.dll", Entrypoint:="SendMessageA", CharSet:=CharSet.Auto)>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As StringBuilder) As IntPtr
    End Function
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function ReleaseCapture() As Integer
    End Function
 
    <DllImport("gdi32.dll")>
    Private Shared Function CreatePolygonRgn(ByVal lppt As Point(), ByVal cPoints As Integer, ByVal fnPolyFillMode As Integer) As IntPtr
    End Function
 
 
    Const WM_NCLBUTTONDOWN = &HA1
    Const HTCAPTION = 2
    Public Const ALTERNATE = 1
 
 
    Public Structure POINTAPI
        Dim x As Integer
        Dim y As Integer
    End Structure
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
 
 
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
        '//Obtiene la localización X Y de los píxeles de color Verde RGB(0, 255, 0)
        Dim b As Bitmap = New Bitmap(PictureBox1.Image)
        Dim xPosPixel As Integer = Nothing
        Dim yPosPixel As Integer = Nothing
 
        Dim gp As New Bitmap(b.Width, b.Height, System.Drawing.Imaging.PixelFormat.Format32bppPArgb)
        For Y As Integer = 0 To gp.Height - 1
            For X = 0 To gp.Width - 1
                Dim cw As New Color
                cw = Color.Lime 'Verde RGB(0, 255, 0)
                Dim curPixColor As Color = b.GetPixel(X, Y)
                If curPixColor.ToArgb() = cw.ToArgb() Then
                    'Elimina el píxel
                    ClipPixel(X, Y)
                End If
            Next
        Next
 
    End Sub
 
    Public Sub ClipPixel(ByVal X As Integer, ByVal Y As Integer)
        Dim lpPts(12) As Point
 
        Dim hRustedRgn As Long  ' Rusted region
        Dim WPicture As Integer
        Dim HPicture As Integer
        Dim X1, X2, Y1, Y2 As Integer
       WPicture = PictureBox1.Width
        HPicture = PictureBox1.Height
        X1 = X : X2 = Y : Y1 = Y : Y2 = Y + 1
 
        ' Fill out the Rusted region points
        ' The starting point
        lpPts(0).X = 0 : lpPts(0).Y = 0
        ' The width from the starting point
        lpPts(1).X = WPicture : lpPts(1).Y = 0
        ' The height from the Width
        lpPts(2).X = WPicture : lpPts(2).Y = HPicture
        ' The Height from the starting point
        lpPts(3).X = 0 : lpPts(3).Y = HPicture
        ' Create half of the square as a Triangle
        lpPts(4).X = 0 : lpPts(4).Y = X1
        lpPts(5).X = X1 : lpPts(5).Y = X1
        lpPts(6).X = X1 : lpPts(6).Y = Y1
        lpPts(7).X = X2 : lpPts(7).Y = Y1
        lpPts(8).X = X2 : lpPts(8).Y = Y2
        lpPts(9).X = X1 : lpPts(9).Y = Y2
        lpPts(10).X = X1 : lpPts(10).Y = X1
        lpPts(11).X = 0 : lpPts(11).Y = X1
 
        hRustedRgn = CreatePolygonRgn(lpPts, lpPts.Length, ALTERNATE)
        Call SetWindowRgn(PictureBox1.Handle, hRustedRgn, True)
    End Sub
End Class
 

 Private sub SubstractColor(ByVal HWND As IntPtr, Color As Integer, optional byval GradoTr as byte=128) 
    SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
    SetLayeredWindowAttributes(HWND, Color, GradoTr , &H1)
End Function

 
Const LWA_COLORKEY As Long = &H1
 Const LWA_ALPHA As Long = &H2
 

 
    Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
        SetLayeredWindowAttributes(HWND, IntPtr.Zero, GradoTr, LWA_ALPHA)
    End Sub
 

Imports System
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Drawing.Imaging
 
Public Class Form1
    <DllImport("User32.dll", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function SetLayeredWindowAttributes(ByVal HWND As IntPtr, ByVal crKey As Integer, ByVal bAlpha As Byte, ByVal dwFlags As Integer) As Integer
    End Function
    <DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
    End Function
    <DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    End Function
 
    Const GWL_EXSTYLE = (-20)
    Const WS_EX_LAYERED = &H80000
    Const GreenColor = &HFF00
    Const LWA_COLORKEY As Long = &H1
    Const LWA_ALPHA As Long = &H2
 
    Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
        SetLayeredWindowAttributes(HWND, IntPtr.Zero, GradoTr, LWA_ALPHA)
    End Sub
    'Private Function SubstractColor(ByVal HWND As IntPtr, Color As Integer) As Integer
    '    SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
    '    SetLayeredWindowAttributes(HWND, Color, 0, LWA_COLORKEY)
    '    Return Nothing
    'End Function
 
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        SubstractColor(CType(Me.Handle, IntPtr), 210)
    End Sub
End Class
 

Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
        SetLayeredWindowAttributes(HWND, GreenColor, GradoTr, LWA_ALPHA + LWA_COLORKEY)
    End Sub
 

    Private Sub SubstractColor(ByVal HWND As IntPtr, ByVal Color As Integer, Optional ByVal GradoTr As Byte = 128)
        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
        SetLayeredWindowAttributes(HWND, Color, GradoTr, LWA_ALPHA + LWA_COLORKEY)
    End Sub
 

Imports System
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Drawing.Imaging
 
Public Class Form1
    <DllImport("User32.dll", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function SetLayeredWindowAttributes(ByVal HWND As IntPtr, ByVal crKey As Integer, ByVal bAlpha As Byte, ByVal dwFlags As Integer) As Integer
    End Function
    <DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
    End Function
    <DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    End Function
 
    Const GWL_EXSTYLE = (-20)
    Const WS_EX_LAYERED = &H80000
    Const GreenColor = &HFF00
 
    Private Function SubstractColor(ByVal HWND As IntPtr, Color As Integer) As Integer
 
        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
        SetLayeredWindowAttributes(HWND, Color, 0, &H1)
        Return Nothing
    End Function
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SubstractColor(Me.Handle, GreenColor)
    End Sub
End Class