Dim celda As New List(Of String)
        For Each cell As DataGridViewCell In Me.DataGridView1.SelectedCells
            celda.Add(CStr(cell.ColumnIndex & "," & cell.RowIndex))
        Next
        MessageBox.Show(String.Join("; ", celda))
 

Imports Limilabs.Client.IMAP
 
Module Module1
 
    Private Const _server As String = "imap.gmail.com"
    Private Const _user As String = "USER"
    Private Const _password As String = "PASSWORD"
 
    Sub Main()
        Using imap As New Imap
 
            imap.ConnectSSL(_server, 993)
 
            ' imap.Connect(_server)                           ' Use overloads or ConnectSSL if you need to specify different port or SSL.
 
            imap.Login(_user, _password)                    ' You can also use: LoginPLAIN, LoginCRAM, LoginDIGEST, LoginOAUTH methods,
            ' or use UseBestLogin method if you want Mail.dll to choose for you.
 
            Dim folders As List(Of FolderInfo) = imap.GetFolders()      ' List all folders on the IMAP server
 
            Console.WriteLine("Folders on IMAP server: ")
            For Each folder As FolderInfo In folders
 
                Dim status As FolderStatus = imap.Examine(folder.Name)  ' Examine each folder for number of total and recent messages.
 
                Console.WriteLine(String.Format("{0}, Recent: {1}, Total: {2}", _
                    folder.Name, _
                    status.MessageCount, _
                    status.Recent))                                     ' Display folder information                 
            Next
 
            ' You can also Create, Rename and Delete folders:
            imap.CreateFolder("Temporary")
            imap.RenameFolder("Temporary", "Temp")
            imap.DeleteFolder("Temp")
 
            imap.Close()
        End Using
          Console.ReadLine()
    End Sub
 
End Module

Servidor de correo entrante (IMAP)	

imap.gmail.com
Requiere SSL: Sí
Puerto: 993

[AUTH] Web login required: https://support.google.com/mail/answer/78754

     S = (TrackBar1.Value) + 100

        Dim Rojo As Single = CSng(299 * (100 - S) / 100000) 
        Dim Verde As Single = CSng(587 * (100 - S) / 100000)
        Dim Azul As Single = CSng(114 * (100 - S) / 100000) 

        S = CSng(S / 100)
        Dim colorMatrixVal As Single()() = {
        New Single() {Rojo + S, Rojo, Rojo, 0, 0}, _
        New Single() {Verde, Verde + S, Verde, 0, 0}, _
        New Single() {Azul, Azul, Azul + S, 0, 0}, _
        New Single() {0, 0, 0, 1, 0}, _
        New Single() {0, 0, 0, 0, 1}}

Imports System.IO
Imports System.Drawing.Imaging
 
 
 
Public Class Form1
    Private originalBitmap As Bitmap = Nothing
    Private previewBitmap As Bitmap = Nothing
    Private resultBitmap As Bitmap = Nothing
    Dim PictureBox1 As New PictureBox With {.Location = New Point(10, 10),
                                            .Size = New Size(400, 240),
                                            .SizeMode = PictureBoxSizeMode.StretchImage,
                                            .BackColor = Color.DarkGray}
    Dim Button1 As New Button With {.Location = New Point(PictureBox1.Width + 20, 10), .Text = "Cargar"}
    Dim Button2 As New Button With {.Location = New Point(PictureBox1.Width + 20, 40), .Text = "Guardar"}
    Dim TrackBar1 As New TrackBar With {.Location = New Point(10, PictureBox1.Height + 20),
                                        .AutoSize = True,
                                        .Size = New Size(PictureBox1.Width, 10),
                                        .TickStyle = TickStyle.TopLeft,
                                        .BackColor = Color.DarkGray,
                                        .TickFrequency = 50,
                                        .Maximum = 100,
                                        .Minimum = -100,
                                        .Value = 0,
                                        .Orientation = Orientation.Horizontal}
    Dim Label1 As New Label With {.Location = New Point(TrackBar1.Width + 20, TrackBar1.Top + 10),
                                  .AutoSize = True,
                                  .Text = "0",
                                 .Font = New Font("Arial", 20, FontStyle.Bold)}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Controls.Add(PictureBox1)
        Me.Controls.Add(Button1)
        Me.Controls.Add(Button2)
        Me.Controls.Add(TrackBar1)
        Me.Controls.Add(Label1)
 
        Label1.BringToFront()
        Me.Size = New Size(520, 400)
 
        AddHandler TrackBar1.ValueChanged, AddressOf TrackBar1_ValueChanged
        AddHandler Button1.Click, AddressOf Button1_Click
        AddHandler Button2.Click, AddressOf Button2_Click
    End Sub
 
    Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs)
 
        Label1.Text = TrackBar1.Value.ToString()
        AplicarSaturacion(True)
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs)
        Dim ofd As New OpenFileDialog()
        ofd.Title = "Abrir imagen"
        ofd.Filter = "Jpeg Images(*.jpg)|*.jpg|Png Images(*.png)|*.png"
        ofd.Filter += "|Bitmap Images(*.bmp)|*.bmp"
 
        If ofd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Dim streamReader As New StreamReader(ofd.FileName)
            originalBitmap = DirectCast(Bitmap.FromStream(streamReader.BaseStream), Bitmap)
            streamReader.Close()
            previewBitmap = Image.FromFile(ofd.FileName)
            PictureBox1.Image = previewBitmap
 
            AplicarSaturacion(True)
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs)
        AplicarSaturacion(False)
 
 
        If resultBitmap IsNot Nothing Then
            Dim sfd As New SaveFileDialog()
            sfd.Title = "Guardar imagen"
            sfd.Filter = "Jpeg Images(*.jpg)|*.jpg|Png Images(*.png)|*.png"
            sfd.Filter += "|Bitmap Images(*.bmp)|*.bmp"
 
            If sfd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                Dim fileExtension As String = Path.GetExtension(sfd.FileName).ToUpper()
                Dim imgFormat As ImageFormat = ImageFormat.Png
 
                If fileExtension = "BMP" Then
                    imgFormat = ImageFormat.Bmp
                ElseIf fileExtension = "JPG" Then
                    imgFormat = ImageFormat.Jpeg
                End If
 
                Dim streamWriter As New StreamWriter(sfd.FileName, False)
                resultBitmap.Save(streamWriter.BaseStream, imgFormat)
                streamWriter.Flush()
                streamWriter.Close()
 
                resultBitmap = Nothing
            End If
        End If
    End Sub
    Public Sub AplicarSaturacion(Byval  preview As Boolean)
        If previewBitmap Is Nothing Then
            Return
        End If
        Dim Imagen As Image = previewBitmap
        Dim Pic As PictureBox = PictureBox1
        Dim Grafico As Graphics
        Dim Rectangulo As Rectangle
        Pic.Image = New Bitmap(Pic.Width, Pic.Height, PixelFormat.Format32bppArgb)
        Grafico = Graphics.FromImage(Pic.Image)
        Rectangulo = New Rectangle(0, 0, Pic.Width, Pic.Height)
        Grafico.DrawImage(Imagen, Rectangulo)
        Dim S As Single
 
        S = (TrackBar1.Value) + 100
 
        Dim Rojo As Single = CSng(299 * (100 - S) / 100000) 
        Dim Verde As Single = CSng(587 * (100 - S) / 100000) 
        Dim Azul As Single = CSng(114 * (100 - S) / 100000) 
 
        S = CSng(S / 100)
        Dim colorMatrixVal As Single()() = {
        New Single() {Rojo + S, Rojo, Rojo, 0, 0}, _
        New Single() {Verde, Verde + S, Verde, 0, 0}, _
        New Single() {Azul, Azul, Azul + S, 0, 0}, _
        New Single() {0, 0, 0, 1, 0}, _
        New Single() {0, 0, 0, 0, 1}}
 
        Dim colorMatrix As New ColorMatrix(colorMatrixVal)
        Dim ImagenAtributos As New ImageAttributes
 
        ImagenAtributos.SetColorMatrix(colorMatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
        Grafico.DrawImage(Imagen, Rectangulo, 0, 0, Imagen.Width, Imagen.Height, GraphicsUnit.Pixel, ImagenAtributos)
        Pic.Refresh()
        resultBitmap = Pic.Image
    End Sub
End Class
 

Imports System.IO
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Imports WindowsApplication1.NativeMethods
 
 
 
Public Class Form1
    Private originalBitmap As Bitmap = Nothing
    Private previewBitmap As Bitmap = Nothing
    Private resultBitmap As Bitmap = Nothing
    Dim picLoad As Boolean
    Dim PictureBox1 As New PictureBox With {.Location = New Point(10, 10),
                                            .Size = New Size(400, 240),
                                            .SizeMode = PictureBoxSizeMode.StretchImage,
                                            .BackColor = Color.DarkGray}
    Dim Button1 As New Button With {.Location = New Point(PictureBox1.Width + 20, 10), .Text = "Cargar"}
    Dim Button2 As New Button With {.Location = New Point(PictureBox1.Width + 20, 40), .Text = "Guardar"}
    Dim TrackBar1 As New TrackBar With {.Location = New Point(10, PictureBox1.Height + 20),
                                        .AutoSize = True,
                                        .Size = New Size(PictureBox1.Width, 10),
                                        .TickStyle = TickStyle.TopLeft,
                                        .BackColor = Color.DarkGray,
                                        .TickFrequency = 50,
                                        .Maximum = 100,
                                        .Minimum = -100,
                                        .Value = 0,
                                        .Orientation = Orientation.Horizontal}
    Dim Label1 As New Label With {.Location = New Point(TrackBar1.Width + 20, TrackBar1.Top + 10),
                                  .AutoSize = True,
                                  .Text = "0",
                                 .Font = New Font("Arial", 20, FontStyle.Bold)}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Controls.Add(PictureBox1)
        Me.Controls.Add(Button1)
        Me.Controls.Add(Button2)
        Me.Controls.Add(TrackBar1)
        Me.Controls.Add(Label1)
 
        Label1.BringToFront()
        Me.Size = New Size(520, 400)
 
        AddHandler TrackBar1.ValueChanged, AddressOf TrackBar1_ValueChanged
        AddHandler Button1.Click, AddressOf Button1_Click
        AddHandler Button2.Click, AddressOf Button2_Click
        AddHandler PictureBox1.Paint, AddressOf PictureBox1_Paint
    End Sub
    Public Sub PictureBox1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs)
        If picLoad = True Then
            AplicarSaturacion(True)
        End If
 
    End Sub
    Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs)
        Label1.Text = TrackBar1.Value.ToString()
        PictureBox1.Refresh()
        PictureBox1_Paint(1, Nothing)
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs)
        Dim ofd As New OpenFileDialog()
        ofd.Title = "Guardar imagen"
        ofd.Filter = "Jpeg Images(*.jpg)|*.jpg|Png Images(*.png)|*.png"
        ofd.Filter += "|Bitmap Images(*.bmp)|*.bmp"
 
        If ofd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Dim streamReader As New StreamReader(ofd.FileName)
            originalBitmap = DirectCast(Bitmap.FromStream(streamReader.BaseStream), Bitmap)
            streamReader.Close()
            previewBitmap = Image.FromFile(ofd.FileName)
            PictureBox1.Image = previewBitmap
            picLoad = True
            AplicarSaturacion(True)
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs)
        AplicarSaturacion(False)
 
 
        If resultBitmap IsNot Nothing Then
            Dim sfd As New SaveFileDialog()
            sfd.Title = "Abrir Imagen"
            sfd.Filter = "Jpeg Images(*.jpg)|*.jpg|Png Images(*.png)|*.png"
            sfd.Filter += "|Bitmap Images(*.bmp)|*.bmp"
 
            If sfd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                Dim fileExtension As String = Path.GetExtension(sfd.FileName).ToUpper()
                Dim imgFormat As ImageFormat = ImageFormat.Png
 
                If fileExtension = "BMP" Then
                    imgFormat = ImageFormat.Bmp
                ElseIf fileExtension = "JPG" Then
                    imgFormat = ImageFormat.Jpeg
                End If
 
                Dim streamWriter As New StreamWriter(sfd.FileName, False)
                resultBitmap.Save(streamWriter.BaseStream, imgFormat)
                streamWriter.Flush()
                streamWriter.Close()
 
                resultBitmap = Nothing
            End If
        End If
    End Sub
    Public Sub AplicarSaturacion(ByVal preview As Boolean)
 
 
        Dim ca As COLORADJUSTMENT
        ca.caSize = CType(Marshal.SizeOf(ca), Short)
        Dim HDcPic As IntPtr = CType(PictureBox1.CreateGraphics.GetHdc, IntPtr) 'GetDC(PictureBox1.Handle)
 
 
        SetStretchBltMode(HDcPic, HALFTONE)
        GetColorAdjustment(HDcPic, ca)
        ca.caColorfulness = TrackBar1.Value
        SetColorAdjustment(HDcPic, ca)
 
        StretchBlt(HDcPic, 0, 0, PictureBox1.Image.Width, PictureBox1.Image.Height, _
        HDcPic, 0, 0, PictureBox1.Image.Width, PictureBox1.Image.Height, TernaryRasterOperations.SRCCOPY)
 
        resultBitmap = PictureBox1.Image
 
    End Sub
 
 

<Security.SuppressUnmanagedCodeSecurity>
Friend Class NativeMethods
    Inherits Attribute
    Private Sub New()
    End Sub
    <DllImport("gdi32.dll")> _
    Public Shared Function BitBlt(hObject As IntPtr,
                                  nXDest As Integer,
                                  nYDest As Integer,
                                  nWidth As Integer,
                                  nHeight As Integer,
                                  hObjSource As IntPtr,
                                  nXSrc As Integer,
                                  nYSrc As Integer,
                                  dwRop As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
    <DllImport("gdi32.dll")>
    Shared Function SetColorAdjustment(hdc As IntPtr,
                                       <MarshalAs(UnmanagedType.Struct)>
                                       ByRef lpca As COLORADJUSTMENT) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
    <DllImport("gdi32.dll")>
    Shared Function GetColorAdjustment(ByVal hdc As IntPtr,
                                       <MarshalAs(UnmanagedType.Struct)>
                                       ByRef lpca As COLORADJUSTMENT) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
    <DllImport("user32.dll")>
    Shared Function GetDC(ByVal hWnd As IntPtr) As IntPtr
    End Function
 
    <DllImport("gdi32.dll")> _
    Public Shared Function StretchBlt(hdc As IntPtr, _
                                      x As Integer,
                                     y As Integer,
                                     nHeight As Integer,
                                     hSrcDC As Integer,
                                     hObjSource As IntPtr, _
                                    xSrc As Integer,
                                    ySrc As Integer,
                                    nSrcWidth As Integer,
                                    nSrcHeight As Integer,
                                    dwRop As TernaryRasterOperations) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
    <DllImport("gdi32.dll")> _
    Public Shared Function SetStretchBltMode(ByVal hObject As IntPtr,
                                             ByVal nStretchMode As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
    <StructLayout(LayoutKind.Sequential)>
    Public Structure COLORADJUSTMENT
        Public caSize As Short
        Public caFlags As Short
        Public caIlluminantIndex As Short
        Public caRedGamma As Short
        Public caGreenGamma As Short
        Public caBlueGamma As Short
        Public caReferenceBlack As Short
        Public caReferenceWhite As Short
        Public caContrast As Short
        Public caBrightness As Short
        Public caColorfulness As Short
        Public caRedGreenTint As Short
    End Structure
 
   Public Enum caIlluminantIndex
        ILLUMINANT_DEVICE_DEFAULT = 0 'Device's default. Standard used by output devices.
        ILLUMINANT_A = 1 'Tungsten lamp.
        ILLUMINANT_B = 2 'Noon sunlight.
        ILLUMINANT_C = 3 'NTSC daylight.
        ILLUMINANT_D50 = 4 'Normal print.
        ILLUMINANT_D55 = 5 'Bond paper print.
        ILLUMINANT_D65 = 6 'Standard daylight. Standard for CRTs and pictures.
        ILLUMINANT_D75 = 7 'Northern daylight.
        ILLUMINANT_F2 = 8 'Cool white lamp.
        ILLUMINANT_DAYLIGHT = ILLUMINANT_C 'Same as ILLUMINANT_C.
        ILLUMINANT_FLUORESCENT = ILLUMINANT_F2 'Same as ILLUMINANT_F2.
        ILLUMINANT_MAX_INDEX = ILLUMINANT_F2 'Same as ILLUMINANT_F2.
        ILLUMINANT_NTSC = ILLUMINANT_C 'Same as ILLUMINANT_C.
        ILLUMINANT_TUNGSTEN = ILLUMINANT_A 'Same as ILLUMINANT_A.
    End Enum
 
 
    Public Enum TernaryRasterOperations
        SRCCOPY = &HCC0020 ' dest = source
        SRCPAINT = &HEE0086 ' dest = source OR dest
        SRCAND = &H8800C6 ' dest = source AND dest
        SRCINVERT = &H660046 ' dest = source XOR dest
        SRCERASE = &H440328 ' dest = source AND (NOT dest)
        NOTSRCCOPY = &H330008 ' dest = (NOT source)
        NOTSRCERASE = &H1100A6 ' dest = (NOT src) AND (NOT dest)
        MERGECOPY = &HC000CA ' dest = (source AND pattern)
        MERGEPAINT = &HBB0226 ' dest = (NOT source) OR dest
        PATCOPY = &HF00021 ' dest = pattern
        PATPAINT = &HFB0A09 ' dest = DPSnoo
        PATINVERT = &H5A0049 ' dest = pattern XOR dest
        DSTINVERT = &H550009 ' dest = (NOT dest)
        BLACKNESS = &H42 ' dest = BLACK
        WHITENESS = &HFF0062 ' dest = WHITE
    End Enum
    Public Const HALFTONE = 4
 
    <DllImport("gdi32.dll")> _
    Public Shared Function SetBkColor(hdc As IntPtr, crColor As Integer) As Integer
    End Function
 
End Class