' Draw Grid
    ' By Elektro
    ' 
    ''' <summary>
    ''' Draws a grid in the specified <see cref="System.Drawing.Graphics"/> space.
    ''' </summary>
    ''' <param name="g">Indicates the <see cref="System.Drawing.Graphics"/> object.</param>
    ''' <param name="GridSize">Indicates the size of the grid.</param>
    ''' <param name="Columns">Indicates the amount of columns to draw.</param>
    ''' <param name="Rows">Indicates the amount of rows to draw.</param>
    ''' <param name="ColorColumns">Indicates the columns color.</param>
    ''' <param name="ColorRows">Indicates the rows color.</param>
    ''' <param name="DrawBorder">If set to <c>true</c>, a border is drawn on the grid edges.</param>
    ''' <param name="ColorBorder">Indicates the border color. Default value is the same color as <param ref="ColorColumns"/></param>
    ''' <param name="ColorStyle">Indicates the colors <see cref="System.Drawing.Drawing2D.DashStyle"/>.</param>
    ''' <exception cref="System.ArgumentException">
    ''' GridSize.Width is not divisible by the specified number of columns.
    ''' or
    ''' GridSize.Height is not divisible by the specified number of rows.
    ''' </exception>
    Private Sub DrawGrid(ByVal g As Graphics,
                         ByVal GridSize As Size,
                         ByVal Columns As Integer,
                         ByVal Rows As Integer,
                         ByVal ColorColumns As Color,
                         ByVal ColorRows As Color,
                         Optional ByVal DrawBorder As Boolean = True,
                         Optional ByVal ColorBorder As Color = Nothing,
                         Optional ByVal ColorStyle As Drawing2D.DashStyle = Drawing2D.DashStyle.Solid)
 
        If Not (GridSize.Width Mod Columns = 0I) Then
            Throw New ArgumentException(
                "GridSize.Width is not divisible by the specified number of columns.",
                "GridSize")
            Exit Sub
 
        ElseIf Not (GridSize.Height Mod Rows = 0I) Then
            Throw New ArgumentException(
                "GridSize.Height is not divisible by the specified number of rows.",
                "GridSize")
            Exit Sub
 
        End If
 
        Dim SectorWidth As Integer = (GridSize.Width \ Columns)
        Dim SectorHeight As Integer = (GridSize.Height \ Rows)
 
        Using PenRow As New Pen(ColorRows) With {.DashStyle = ColorStyle}
 
            Using PenCol As New Pen(ColorColumns) With {.DashStyle = ColorStyle}
 
                For row As Integer = 0I To GridSize.Height - 1 Step (SectorHeight)
 
                    For col As Integer = 0I To GridSize.Width - 1 Step SectorWidth
 
                        ' Draw the vertical grid-lines.
                        g.DrawLine(PenCol,
                                   New Point(x:=col - 1, y:=0I),
                                   New Point(x:=col - 1, y:=GridSize.Height))
 
                    Next col
 
                    ' Draw the horizontal grid-lines.
                    g.DrawLine(PenRow,
                               New Point(x:=0I, y:=row - 1),
                               New Point(x:=GridSize.Width, y:=row - 1))
 
                Next row
 
                If DrawBorder Then
 
                    Using PenBorder As New Pen(If(ColorBorder = Nothing, ColorColumns, ColorBorder)) With {.DashStyle = ColorStyle}
 
                        ' Draw the vertical left grid-line.
                        g.DrawLine(PenBorder,
                                   New Point(x:=0, y:=0I),
                                   New Point(x:=0, y:=GridSize.Height))
 
                        ' Draw the vertical right grid-line.
                        g.DrawLine(PenBorder,
                                   New Point(x:=(GridSize.Width - 1I), y:=0I),
                                   New Point(x:=(GridSize.Width - 1I), y:=GridSize.Height))
 
                        ' Draw the horizontal top grid-line.
                        g.DrawLine(PenBorder,
                                   New Point(x:=0I, y:=0I),
                                   New Point(x:=GridSize.Width, y:=0I))
 
                        ' Draw the horizontal bottom grid-line.
                        g.DrawLine(PenBorder,
                                   New Point(x:=0I, y:=(GridSize.Height - 1I)),
                                   New Point(x:=GridSize.Width, y:=(GridSize.Height - 1I)))
                    End Using ' PenBorder
 
                End If ' DrawBorder
 
            End Using '  PenCol
 
        End Using ' PenRow
 
    End Sub

    ' Get Grid
    ' By Elektro
    ' 
    ''' <summary>
    ''' Calculates the drawing of a grid with the specified size,
    ''' and returns a<see cref="List(Of Rectangle)"/> that contains the grid-sector specifications.
    ''' </summary>
    ''' <param name="GridSize">Indicates the grid size.</param>
    ''' <param name="Columns">Indicates the amount of columns.</param>
    ''' <param name="Rows">Indicates the amount of rows.</param>
    ''' <returns>A <see cref="List(Of Rectangle)"/> that contains the grid-sector specifications.</returns>
    ''' <exception cref="System.ArgumentException">
    ''' GridSize.Width is not divisible by the specified number of columns.
    ''' or
    ''' GridSize.Height is not divisible by the specified number of rows.
    ''' </exception>
    Private Function GetGrid(ByVal GridSize As Size,
                             ByVal Columns As Integer,
                             ByVal Rows As Integer) As List(Of Rectangle)
 
        If Not (GridSize.Width Mod Columns = 0I) Then
            Throw New ArgumentException(
                "GridSize.Width is not divisible by the specified number of columns.",
                "GridSize")
            Return Nothing
 
        ElseIf Not (GridSize.Height Mod Rows = 0I) Then
            Throw New ArgumentException(
                "GridSize.Height is not divisible by the specified number of rows.",
                "GridSize")
            Return Nothing
 
        End If
 
        Dim Sectors As New List(Of Rectangle)
        Dim SectorWidth As Integer = GridSize.Width \ Columns
        Dim SectorHeight As Integer = GridSize.Height \ Rows
 
        For row As Integer = 0I To GridSize.Height - 1 Step (SectorHeight)
 
            For col As Integer = 0I To GridSize.Width - 1 Step SectorWidth
 
                Sectors.Add(New Rectangle(col, row, SectorWidth, SectorHeight))
 
            Next col
 
        Next row
 
        Return Sectors
 
    End Function

    Public Property currentsector As Integer = 0
    Public Property currentcolor As Color = Color.Gray
 
    Public ReadOnly Property GridSectors As List(Of Rectangle)
        Get
            Return Me.GetGrid(GridSize:=PictureBox1.ClientRectangle.Size, Columns:=5, Rows:=5)
        End Get
    End Property
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
 
        Label1.Text = "Sectors: " & GridSectors.Count
 
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) _
    Handles PictureBox1.Paint
 
 
        Me.DrawGrid(g:=e.Graphics,
                    GridSize:=sender.ClientRectangle.Size,
                    Columns:=5,
                    Rows:=5,
                    ColorColumns:=Color.YellowGreen,
                    ColorRows:=Color.YellowGreen,
                    DrawBorder:=True,
                    ColorBorder:=Nothing,
                    ColorStyle:=Drawing2D.DashStyle.Solid)
 
    End Sub
 
    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
 
        Dim Sectors As List(Of Rectangle) = Me.GridSectors
 
        For X As Integer = 0I To (Sectors.Count - 1I)
 
            If Sectors(X).Contains(sender.PointToClient(MousePosition)) Then
 
                Dim myBrush As New SolidBrush(currentcolor)
 
                Using formGraphics As Graphics = sender.CreateGraphics()
 
                    formGraphics.FillRectangle(myBrush, New Rectangle(Sectors(X).X + 1, Sectors(X).Y + 1, Sectors(X).Width - 2, Sectors(X).Height - 2))
                    myBrush.Dispose()
 
                End Using ' formGraphics
                currentsector = X + 1
                Label2.Text = "Current sector: " & currentsector
 
            Else
                Dim myBrush As New SolidBrush(Color.Black)
 
                Using formGraphics As Graphics = sender.CreateGraphics()
 
                    formGraphics.FillRectangle(myBrush, New Rectangle(Sectors(X).X + 1, Sectors(X).Y + 1, Sectors(X).Width - 2, Sectors(X).Height - 2))
                    myBrush.Dispose()
 
                End Using ' formGraphics
            End If ' Sectors(X).Contains(...)
 
        Next X
 
    End Sub
 
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.MouseDown
 
        Label3.Text = "Last Sector Clicked: " & currentsector
 
        '  Dim sector As Rectangle = Me.GridSectors(currentsector - 1)
        currentcolor = Color.Red
        PictureBox1.Cursor = Cursors.Hand
        PictureBox1.Update()
 
        'Dim myBrush As New SolidBrush(Color.Red)
 
        'Using formGraphics As Graphics = PictureBox1.CreateGraphics()
 
        '    formGraphics.FillRectangle(myBrush, New Rectangle(sector.X + 1, sector.Y + 1, sector.Width - 2, sector.Height - 2))
        '    myBrush.Dispose()
 
        'End Using ' formGraphics
 
    End Sub
 
    Private Sub PictureBox1_Clic(sender As Object, e As EventArgs) Handles PictureBox1.MouseUp
        Label3.Text = "Last Sector Clicked: " & currentsector
 
        '  Dim sector As Rectangle = Me.GridSectors(currentsector - 1)
        currentcolor = Color.Gray
        PictureBox1.Cursor = Cursors.Default
        PictureBox1.Update()
 
        'Dim myBrush As New SolidBrush(Color.Red)
 
        'Using formGraphics As Graphics = PictureBox1.CreateGraphics()
 
        '    formGraphics.FillRectangle(myBrush, New Rectangle(sector.X + 1, sector.Y + 1, sector.Width - 2, sector.Height - 2))
        '    myBrush.Dispose()
 
        'End Using ' formGraphics
 
    End Sub

' Example of sharing memory across different running applications.
' By Elektro
' 
' *************************
' This is the Application 1
' *************************
 
#Region " Imports "
 
Imports System.IO.MemoryMappedFiles
 
#End Region
 
#Region " Application 2 "
 
''' <summary>
''' Class MemoryMappedFile_Form1.
''' This should be the Class used to compile our first application.
''' </summary>
Public Class MemoryMappedFile_Form1
 
    ' The controls to create on execution-time.
    Dim WithEvents btMakeFile As New Button ' Writes the memory.
    Dim WithEvents btReadFile As New Button ' Reads the memory.
    Dim tbMessage As New TextBox ' Determines the string to map into memory.
    Dim tbReceptor As New TextBox ' Print the memory read's result.
    Dim lbInfoButtons As New Label ' Informs the user with a usage hint for the buttons.
    Dim lbInfotbMessage As New Label ' Informs the user with a usage hint for 'tbMessage'.
 
    ''' <summary>
    ''' Indicates the name of our memory-file.
    ''' </summary>
    Private ReadOnly MemoryName As String = "My Memory-File Name"
 
    ''' <summary>
    ''' Indicates the memory buffersize to store the <see cref="MemoryName"/>, in bytes.
    ''' </summary>
    Private ReadOnly MemoryBufferSize As Integer = 1024I
 
    ''' <summary>
    ''' Indicates the string to map in memory.
    ''' </summary>
    Private ReadOnly Property strMessage As String
        Get
            Return tbMessage.Text
        End Get
    End Property
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="MemoryMappedFile_Form1"/> class.
    ''' </summary>
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Set the properties of the controls.
        With lbInfotbMessage
            .Location = New Point(20, 10)
            .Text = "Type in this TextBox the message to write in memory:"
            .AutoSize = True
            ' .Size = tbReceptor.Size
        End With
        With tbMessage
            .Text = "Hello world from application one!"
            .Location = New Point(20, 30)
            .Size = New Size(310, Me.tbMessage.Height)
        End With
        With btMakeFile
            .Text = "Write Memory"
            .Size = New Size(130, 45)
            .Location = New Point(20, 50)
        End With
        With btReadFile
            .Text = "Read Memory"
            .Size = New Size(130, 45)
            .Location = New Point(200, 50)
        End With
        With tbReceptor
            .Location = New Point(20, 130)
            .Size = New Size(310, 100)
            .Multiline = True
        End With
        With lbInfoButtons
            .Location = New Point(tbReceptor.Location.X, tbReceptor.Location.Y - 30)
            .Text = "Press '" & btMakeFile.Text & "' button to create the memory file, that memory can be read from both applications."
            .AutoSize = False
            .Size = tbReceptor.Size
        End With
 
        ' Set the Form properties.
        With Me
            .Text = "Application 1"
            .Size = New Size(365, 300)
            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
            .MaximizeBox = False
            .StartPosition = FormStartPosition.CenterScreen
        End With
 
        ' Add the controls on the UI.
        Me.Controls.AddRange({lbInfotbMessage, tbMessage, btMakeFile, btReadFile, tbReceptor, lbInfoButtons})
 
    End Sub
 
    ''' <summary>
    ''' Writes a byte sequence into a <see cref="MemoryMappedFile"/>.
    ''' </summary>
    ''' <param name="Name">Indicates the name to assign the <see cref="MemoryMappedFile"/>.</param>
    ''' <param name="BufferLength">Indicates the <see cref="MemoryMappedFile"/> buffer-length to write in.</param>
    ''' <param name="Data">Indicates the byte-data to write inside the <see cref="MemoryMappedFile"/>.</param>
    Private Sub MakeMemoryMappedFile(ByVal Name As String, ByVal BufferLength As Integer, ByVal Data As Byte())
 
        ' Create or open the memory-mapped file.
        Dim MessageFile As MemoryMappedFile =
            MemoryMappedFile.CreateOrOpen(Name, Me.MemoryBufferSize, MemoryMappedFileAccess.ReadWrite)
 
        ' Write the byte-sequence into memory.
        Using Writer As MemoryMappedViewAccessor =
            MessageFile.CreateViewAccessor(0L, Me.MemoryBufferSize, MemoryMappedFileAccess.ReadWrite)
 
            ' Firstly fill with null all the buffer.
            Writer.WriteArray(Of Byte)(0L, System.Text.Encoding.ASCII.GetBytes(New String(Nothing, Me.MemoryBufferSize)), 0I, Me.MemoryBufferSize)
 
            ' Secondly write the byte-data. 
            Writer.WriteArray(Of Byte)(0L, Data, 0I, Data.Length)
 
        End Using ' Writer
 
    End Sub
 
    ''' <summary>
    ''' Reads a byte-sequence from a <see cref="MemoryMappedFile"/>.
    ''' </summary>
    ''' <param name="Name">Indicates an existing <see cref="MemoryMappedFile"/> assigned name.</param>
    ''' <param name="BufferLength">The buffer-length to read in.</param>
    ''' <returns>System.Byte().</returns>
    Private Function ReadMemoryMappedFile(ByVal Name As String, ByVal BufferLength As Integer) As Byte()
 
        Try
            Using MemoryFile As MemoryMappedFile =
                MemoryMappedFile.OpenExisting(Name, MemoryMappedFileRights.Read)
 
                Using Reader As MemoryMappedViewAccessor =
                    MemoryFile.CreateViewAccessor(0L, BufferLength, MemoryMappedFileAccess.Read)
 
                    Dim ReadBytes As Byte() = New Byte(BufferLength - 1I) {}
                    Reader.ReadArray(Of Byte)(0L, ReadBytes, 0I, ReadBytes.Length)
                    Return ReadBytes
 
                End Using ' Reader
 
            End Using ' MemoryFile
 
        Catch ex As IO.FileNotFoundException
            Throw
            Return Nothing
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Handles the 'Click' event of the 'btMakeFile' control.
    ''' </summary>
    Private Sub btMakeFile_Click() Handles btMakeFile.Click
 
        ' Get the byte-data to create the memory-mapped file.
        Dim WriteData As Byte() = System.Text.Encoding.ASCII.GetBytes(Me.strMessage)
 
        ' Create the memory-mapped file.
        Me.MakeMemoryMappedFile(Name:=Me.MemoryName, BufferLength:=Me.MemoryBufferSize, Data:=WriteData)
 
    End Sub
 
    ''' <summary>
    ''' Handles the 'Click' event of the 'btReadFile' control.
    ''' </summary>
    Private Sub btReadFile_Click() Handles btReadFile.Click
 
 
        Dim ReadBytes As Byte()
 
        Try ' Read the byte-sequence from memory.
            ReadBytes = ReadMemoryMappedFile(Name:=Me.MemoryName, BufferLength:=Me.MemoryBufferSize)
 
        Catch ex As IO.FileNotFoundException
            Me.tbReceptor.Text = "Memory-mapped file does not exist."
            Exit Sub
 
        End Try
 
        ' Convert the bytes to String.
        Dim Message As String = System.Text.Encoding.ASCII.GetString(ReadBytes.ToArray)
 
        ' Remove null chars (leading zero-bytes)
        Message = Message.Trim({ControlChars.NullChar})
 
        ' Print the message.
        tbReceptor.Text = Message
 
    End Sub
 
End Class
 
#End Region

' Example of sharing memory across different running applications.
' By Elektro
' 
' *************************
' This is the Application 2
' *************************
 
#Region " Imports "
 
Imports System.IO.MemoryMappedFiles
 
#End Region
 
#Region " Application 2 "
 
''' <summary>
''' Class MemoryMappedFile_Form2.
''' This should be the Class used to compile our first application.
''' </summary>
Public Class MemoryMappedFile_Form2
 
    ' The controls to create on execution-time.
    Dim WithEvents btMakeFile As New Button ' Writes the memory.
    Dim WithEvents btReadFile As New Button ' Reads the memory.
    Dim tbMessage As New TextBox ' Determines the string to map into memory.
    Dim tbReceptor As New TextBox ' Print the memory read's result.
    Dim lbInfoButtons As New Label ' Informs the user with a usage hint for the buttons.
    Dim lbInfotbMessage As New Label ' Informs the user with a usage hint for 'tbMessage'.
 
    ''' <summary>
    ''' Indicates the name of our memory-file.
    ''' </summary>
    Private ReadOnly MemoryName As String = "My Memory-File Name"
 
    ''' <summary>
    ''' Indicates the memory buffersize to store the <see cref="MemoryName"/>, in bytes.
    ''' </summary>
    Private ReadOnly MemoryBufferSize As Integer = 1024I
 
    ''' <summary>
    ''' Indicates the string to map in memory.
    ''' </summary>
    Private ReadOnly Property strMessage As String
        Get
            Return tbMessage.Text
        End Get
    End Property
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="MemoryMappedFile_Form2"/> class.
    ''' </summary>
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Set the properties of the controls.
        With lbInfotbMessage
            .Location = New Point(20, 10)
            .Text = "Type in this TextBox the message to write in memory:"
            .AutoSize = True
            ' .Size = tbReceptor.Size
        End With
        With tbMessage
            .Text = "Hello world from application two!"
            .Location = New Point(20, 30)
            .Size = New Size(310, Me.tbMessage.Height)
        End With
        With btMakeFile
            .Text = "Write Memory"
            .Size = New Size(130, 45)
            .Location = New Point(20, 50)
        End With
        With btReadFile
            .Text = "Read Memory"
            .Size = New Size(130, 45)
            .Location = New Point(200, 50)
        End With
        With tbReceptor
            .Location = New Point(20, 130)
            .Size = New Size(310, 100)
            .Multiline = True
        End With
        With lbInfoButtons
            .Location = New Point(tbReceptor.Location.X, tbReceptor.Location.Y - 30)
            .Text = "Press '" & btMakeFile.Text & "' button to create the memory file, that memory can be read from both applications."
            .AutoSize = False
            .Size = tbReceptor.Size
        End With
 
        ' Set the Form properties.
        With Me
            .Text = "Application 2"
            .Size = New Size(365, 300)
            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
            .MaximizeBox = False
            .StartPosition = FormStartPosition.CenterScreen
        End With
 
        ' Add the controls on the UI.
        Me.Controls.AddRange({lbInfotbMessage, tbMessage, btMakeFile, btReadFile, tbReceptor, lbInfoButtons})
 
    End Sub
 
    ''' <summary>
    ''' Writes a byte sequence into a <see cref="MemoryMappedFile"/>.
    ''' </summary>
    ''' <param name="Name">Indicates the name to assign the <see cref="MemoryMappedFile"/>.</param>
    ''' <param name="BufferLength">Indicates the <see cref="MemoryMappedFile"/> buffer-length to write in.</param>
    ''' <param name="Data">Indicates the byte-data to write inside the <see cref="MemoryMappedFile"/>.</param>
    Private Sub MakeMemoryMappedFile(ByVal Name As String, ByVal BufferLength As Integer, ByVal Data As Byte())
 
        ' Create or open the memory-mapped file.
        Dim MessageFile As MemoryMappedFile =
            MemoryMappedFile.CreateOrOpen(Name, Me.MemoryBufferSize, MemoryMappedFileAccess.ReadWrite)
 
        ' Write the byte-sequence into memory.
        Using Writer As MemoryMappedViewAccessor =
            MessageFile.CreateViewAccessor(0L, Me.MemoryBufferSize, MemoryMappedFileAccess.ReadWrite)
 
            ' Firstly fill with null all the buffer.
            Writer.WriteArray(Of Byte)(0L, System.Text.Encoding.ASCII.GetBytes(New String(Nothing, Me.MemoryBufferSize)), 0I, Me.MemoryBufferSize)
 
            ' Secondly write the byte-data. 
            Writer.WriteArray(Of Byte)(0L, Data, 0I, Data.Length)
 
        End Using ' Writer
 
    End Sub
 
    ''' <summary>
    ''' Reads a byte-sequence from a <see cref="MemoryMappedFile"/>.
    ''' </summary>
    ''' <param name="Name">Indicates an existing <see cref="MemoryMappedFile"/> assigned name.</param>
    ''' <param name="BufferLength">The buffer-length to read in.</param>
    ''' <returns>System.Byte().</returns>
    Private Function ReadMemoryMappedFile(ByVal Name As String, ByVal BufferLength As Integer) As Byte()
 
        Try
            Using MemoryFile As MemoryMappedFile =
                MemoryMappedFile.OpenExisting(Name, MemoryMappedFileRights.Read)
 
                Using Reader As MemoryMappedViewAccessor =
                    MemoryFile.CreateViewAccessor(0L, BufferLength, MemoryMappedFileAccess.Read)
 
                    Dim ReadBytes As Byte() = New Byte(BufferLength - 1I) {}
                    Reader.ReadArray(Of Byte)(0L, ReadBytes, 0I, ReadBytes.Length)
                    Return ReadBytes
 
                End Using ' Reader
 
            End Using ' MemoryFile
 
        Catch ex As IO.FileNotFoundException
            Throw
            Return Nothing
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Handles the 'Click' event of the 'btMakeFile' control.
    ''' </summary>
    Private Sub btMakeFile_Click() Handles btMakeFile.Click
 
        ' Get the byte-data to create the memory-mapped file.
        Dim WriteData As Byte() = System.Text.Encoding.ASCII.GetBytes(Me.strMessage)
 
        ' Create the memory-mapped file.
        Me.MakeMemoryMappedFile(Name:=Me.MemoryName, BufferLength:=Me.MemoryBufferSize, Data:=WriteData)
 
    End Sub
 
    ''' <summary>
    ''' Handles the 'Click' event of the 'btReadFile' control.
    ''' </summary>
    Private Sub btReadFile_Click() Handles btReadFile.Click
 
 
        Dim ReadBytes As Byte()
 
        Try ' Read the byte-sequence from memory.
            ReadBytes = ReadMemoryMappedFile(Name:=Me.MemoryName, BufferLength:=Me.MemoryBufferSize)
 
        Catch ex As IO.FileNotFoundException
            Me.tbReceptor.Text = "Memory-mapped file does not exist."
            Exit Sub
 
        End Try
 
        ' Convert the bytes to String.
        Dim Message As String = System.Text.Encoding.ASCII.GetString(ReadBytes.ToArray)
 
        ' Remove null chars (leading zero-bytes)
        Message = Message.Trim({ControlChars.NullChar})
 
        ' Print the message.
        tbReceptor.Text = Message
 
    End Sub
 
End Class
 
#End Region

Public Class MagicGraphics_Test
 
    Private WithEvents RotationTimer As New Timer With {.Enabled = True, .Interval = 25}
 
    Dim SC As MagicGraphics.ShapeContainer
 
    Private Sub Tst_Shown() Handles MyBase.Shown
 
        SC = New MagicGraphics.ShapeContainer(PictureBox1.CreateGraphics, PictureBox1.Width, PictureBox1.Height, Color.Black, PictureBox1.Image)
        PictureBox1.Image = SC.BMP
        SC.AutoFlush = False
 
        Dim Sq As New MagicGraphics.Rectangle(New Pen(Color.Black, 3), Brushes.Aqua, 60, 20, 50, 50)
        Sq.FillingBrush = New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(60, 0), Color.Yellow, Color.Red)
        SC.AddShape(Sq)
        Dim El As New MagicGraphics.Ellipse(New Pen(Color.Black, 3), Brushes.Olive, 60, 88, 50, 71)
        El.FillingBrush = New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(30, 0), Color.Red, Color.SteelBlue)
        SC.AddShape(El)
 
        RotationTimer.Start()
 
    End Sub
 
 
    Private Sub RotationTimer_Tick() Handles RotationTimer.Tick
 
        Static Direction As Integer = 1I ' 0 = Left, 1 = Right
 
        For X As Integer = 0I To (SC.ShapesL.Count - 1)
 
            Dim shp As MagicGraphics.Shape = SC.ShapesL(X)
 
            shp.Rotate(-8)
 
            If shp.Location.X > (PictureBox1.Width - shp.Width) Then
                Direction = 1I ' Right 
 
            ElseIf shp.Location.X < PictureBox1.Location.X Then
                Direction = 0I ' Left
 
            End If
 
            If Direction = 0 Then
                shp.Move(shp.Location.X + 2, shp.Location.Y)
 
            Else
                shp.Move(shp.Location.X - 2, shp.Location.Y)
 
            End If
 
            ' Debug.WriteLine(String.Format("Shape {0} Rotation: {1}", CStr(X), shp.Rotation))
 
        Next X
 
        SC.Flush()
 
    End Sub
 
End Class
 

Mil gracias de nuevo ahora si pude hacerlo funcionar

Bien aca donde me pones esto , es lo debería de cambiar por mi variable " result " que es la que tiene los números después de efectuada la operación que hago en mi programa ?

Código

ReadOnly FixedValues As Integer() = {1, 5, 19, 22, 34, 55, 66, 88, 99, etc...}

dim values as integer() = (from n as integer in TUSNUMEROS order by n ascending).toarray

#Region "Error Provider Extended"
 
''' <summary>
''' Provides a user interface for indicating that a control on a form has an error associated with it.
''' </summary>
Public Class ErrorProviderExtended
 
    Inherits System.Windows.Forms.ErrorProvider
    Private _validationcontrols As New ValidationControlCollection
    Private _summarymessage As String = "Please enter following mandatory fields,"
 
    ''' <summary>
    ''' Gets or sets the summary message.
    ''' This property will be used for displaying a summary message about all empty fields.
    ''' Default value is "Please enter following mandatory fields,". 
    ''' You can set any other message using this property.
    ''' </summary>
    ''' <value>The summary message.</value>
    Public Property SummaryMessage() As String
        Get
            Return _summarymessage
        End Get
        Set(ByVal Value As String)
            _summarymessage = Value
        End Set
    End Property
 
    ''' <summary>
    ''' Gets or sets the controls which should be validated.
    ''' </summary>
    ''' <value>The controls.</value>
    Public Property Controls() As ValidationControlCollection
        Get
            Return _validationcontrols
        End Get
        Set(ByVal Value As ValidationControlCollection)
            _validationcontrols = Value
        End Set
    End Property
 
    ''' <summary>
    ''' Checks the and show summary error message.
    ''' </summary>
    ''' <param name="ShowMessage">
    ''' If set to <c>true</c>, This function displays a message box which contains all the field names which are empty.
    ''' </param>
    ''' <returns><c>true</c> if all fields on form are entered, <c>false</c> otherwise.</returns>
    Public Function CheckAndShowSummaryErrorMessage(Optional ByVal ShowMessage As Boolean = False) As Boolean
 
        If Controls.Count <= 0 Then
            Return True
        End If
 
        Dim i As Integer
        Dim msg As String = SummaryMessage + vbNewLine + vbNewLine
        Dim berrors As Boolean = False
 
        For i = 0 To Controls.Count - 1
 
            If Controls(i).Validate Then
                If Trim(Controls(i).ControlObj.text) = "" Then
                    If ShowMessage Then
                        msg &= "> " & Controls(i).DisplayName & vbNewLine
                    End If
                    SetError(Controls(i).ControlObj, Controls(i).ErrorMessage)
                    berrors = True
                Else
                    SetError(Controls(i).ControlObj, "")
                End If
            Else
                SetError(Controls(i).ControlObj, "")
            End If
 
        Next i
 
        If berrors Then
            If ShowMessage Then
                MessageBox.Show(msg, "Missing Information", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            End If
            Return False
        Else
            Return True
        End If
 
    End Function
 
    ''' <summary>
    ''' Clears error messages from all controls.
    ''' </summary>
    Public Sub ClearAllErrorMessages()
 
        Dim i As Integer
        For i = 0 To Controls.Count - 1
            SetError(Controls(i).ControlObj, "")
        Next
 
    End Sub
 
    ''' <summary>
    ''' Hooks validation event with all controls.
    ''' </summary>
    Public Sub SetErrorEvents()
 
        Dim i As Integer
        For i = 0 To Controls.Count - 1
            AddHandler CType(Controls(i).ControlObj, System.Windows.Forms.Control).Validating, AddressOf Validation_Event
        Next
 
    End Sub
 
    ''' <summary>
    ''' Handles the Event event of the Validation control.
    ''' This event is hooked for all controls,
    ''' it sets an error message with the use of ErrorProvider
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="System.ComponentModel.CancelEventArgs"/> instance containing the event data.</param>
    Private Sub Validation_Event(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
 
        If Controls(sender).Validate Then
            If Trim(sender.Text) = "" Then
                MyBase.SetError(sender, Controls(sender).ErrorMessage)
            Else
                MyBase.SetError(sender, "")
            End If
        End If
 
    End Sub
 
End Class
 
#End Region
 
#Region "ValidationControlCollection"
 
''' <summary>
''' This class is used for holding all Validation Controls.
''' This class is collection of 'ValidationControl' class objects.
''' This class is used by 'ErrorProviderExtended' class.
''' </summary>
Public Class ValidationControlCollection : Inherits CollectionBase
 
    Default Public Property Item(ByVal ListIndex As Integer) As ValidationControl
        Get
            Return Me.List(ListIndex)
        End Get
        Set(ByVal Value As ValidationControl)
            Me.List(ListIndex) = Value
        End Set
    End Property
 
    Default Public Property Item(ByVal pControl As Object) As ValidationControl
        Get
            If IsNothing(pControl) Then
                Return Nothing
            End If
 
            If GetIndex(pControl.Name) < 0 Then
                Return New ValidationControl
            End If
            Return Me.List(GetIndex(pControl.Name))
        End Get
        Set(ByVal Value As ValidationControl)
            If IsNothing(pControl) Then Exit Property
            If GetIndex(pControl.Name) < 0 Then
                Exit Property
            End If
            Me.List(GetIndex(pControl.Name)) = Value
        End Set
    End Property
 
    Function GetIndex(ByVal ControlName As String) As Integer
        Dim i As Integer
        For i = 0 To Count - 1
            If Item(i).ControlObj.name.toupper = ControlName.ToUpper Then
                Return i
            End If
        Next
        Return -1
    End Function
 
    Public Sub Add(ByRef pControl As Object, ByVal pDisplayName As String)
        If IsNothing(pControl) Then Exit Sub
        Dim obj As New ValidationControl
        obj.ControlObj = pControl
        obj.DisplayName = pDisplayName
        obj.ErrorMessage = "Please enter " + pDisplayName
        Me.List.Add(obj)
    End Sub
 
    Public Sub Add(ByRef pControl As Object, ByVal pDisplayName As String, ByVal pErrorMessage As String)
        If IsNothing(pControl) Then Exit Sub
        Dim obj As New ValidationControl
        obj.ControlObj = pControl
        obj.DisplayName = pDisplayName
        obj.ErrorMessage = pErrorMessage
        Me.List.Add(obj)
    End Sub
 
    Public Sub Add(ByRef pControl As Object)
        If IsNothing(pControl) Then Exit Sub
        Dim obj As New ValidationControl
        obj.ControlObj = pControl
        obj.DisplayName = pControl.Name
        obj.ErrorMessage = "Please enter " + pControl.Name
        Me.List.Add(obj)
    End Sub
 
    Public Sub Add(ByVal pControl As ValidationControl)
        If IsNothing(pControl) Then Exit Sub
        Me.List.Add(pControl)
    End Sub
 
    Public Sub Remove(ByVal pControl As Object)
        If IsNothing(pControl) Then Exit Sub
        Dim i As Integer = Me.GetIndex(pControl.Name)
        If i >= 0 Then
            Me.List.RemoveAt(i)
        End If
    End Sub
End Class
 
#End Region
 
#Region "ValidationControl"
 
''' <summary>
''' ValidationControl class is used to hold any control from windows form. 
''' 'It holds any control in 'ControlObj' property.
''' </summary>
Public Class ValidationControl
 
    Private _control As Object
    Private _displayname As String
    Private _errormessage As String
    Private _validate As Boolean = True
 
    ''' <summary>
    ''' Decides weather control is to be validated. Default value is TRUE.
    ''' </summary>
    ''' <value><c>true</c> if validate; otherwise, <c>false</c>.</value>
    Public Property Validate() As Boolean
        Get
            Return _validate
        End Get
        Set(ByVal Value As Boolean)
            _validate = Value
        End Set
    End Property
 
    ''' <summary>
    ''' ControlObj is a Control from windows form which is to be validated.
    ''' </summary>
    ''' <value>The control object.</value>
    Public Property ControlObj() As Object
        Get
            Return _control
        End Get
        Set(ByVal Value As Object)
            _control = Value
        End Set
    End Property
 
    ''' <summary>
    ''' DisplayName property is used for displaying summary message to user.
    ''' This field name will be displayed in summary message.
    ''' </summary>
    ''' <value>The display name.</value>
    Public Property DisplayName() As String
        Get
            Return _displayname
        End Get
        Set(ByVal Value As String)
            _displayname = Value
        End Set
    End Property
 
    ''' <summary>
    ''' ErrorMessage is also used for displaying summary message.
    ''' </summary>
    ''' <value>The error message.</value>
    Public Property ErrorMessage() As String
        Get
            Return _errormessage
        End Get
        Set(ByVal Value As String)
            _errormessage = Value
        End Set
    End Property
 
End Class
 
#End Region

Public Class ErrorProviderExtended_TestForm
 
    ''' <summary>
    ''' The ErrorProviderExtended instance.
    ''' </summary>
    Private WithEvents MyErrorProvider As New ErrorProviderExtended
 
    ''' <summary>
    ''' Control to validate its content.
    ''' </summary>
    Private WithEvents tbValue As New TextBox
 
    ''' <summary>
    ''' Control that validates general errors.
    ''' </summary>
    Private WithEvents btValidator As New Button
 
    ''' <summary>
    ''' Control that reports the current error message.
    ''' </summary>
    Private lblError As New Label
 
    ''' <summary>
    ''' Control used to indicate a textbox hint.
    ''' </summary>
    Private lblHint As New Label
 
    ''' <summary>
    ''' This value determines whether exists errors that need to be fixed.
    ''' </summary>
    Dim ErrorExists As Boolean = False
 
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        With Me.lblHint
            .Location = New Point(10, 10)
            .Text = "Type an 'Int32' value:"
            .ForeColor = Color.WhiteSmoke
            .AutoSize = True
        End With
 
        With Me.tbValue
            .Location = New Point(15, 25)
            .Size = New Size(100, Me.tbValue.Height)
        End With
 
        With Me.lblError
            .Location = New Point(10, 50)
            .Text = ""
            .ForeColor = Color.WhiteSmoke
            .AutoSize = True
        End With
 
        With Me.btValidator
            .Location = New Point(Me.lblError.Location.X, Me.lblError.Location.Y + 20)
            .Text = "Validate"
            .FlatStyle = FlatStyle.System
        End With
 
        With Me
            .MaximizeBox = False
            .StartPosition = FormStartPosition.CenterScreen
            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
            .Size = New Point(220, 150)
            .BackColor = Color.FromArgb(34, 34, 36)
            .Controls.AddRange({Me.lblHint, Me.lblError, Me.tbValue, Me.btValidator})
        End With
 
    End Sub
 
    Private Sub Test_Load() Handles Me.Load
 
        With MyErrorProvider
            .Controls.Add(Me.tbValue, "Int32")
            .Controls(Me.tbValue).Validate = True
            .SummaryMessage = "Following fields are mandatory."
        End With
 
        ' Change the textbox text to produce an intentional error.
        tbValue.AppendText(" ")
        tbValue.Clear()
 
    End Sub
 
    Private Sub Button1_Click() _
    Handles btValidator.Click
 
        ' The following function checks all empty fields and returns TRUE if all fields are entered.
        ' If any mandotary field is empty this function displays a message and returns FALSE.
        If MyErrorProvider.CheckAndShowSummaryErrorMessage(ShowMessage:=True) Then
 
            If Not Me.ErrorExists Then
                MessageBox.Show("Data submited successfully.", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("Data cannot be submited, fix the error(s).", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Handles the TextChanged event of the tbValue control.
    ''' </summary>
    Private Sub tbValue_TextChanged(sender As Object, e As EventArgs) _
    Handles tbValue.TextChanged
 
        Dim Value As String = sender.text
 
        If String.IsNullOrEmpty(Value) Then
            MyErrorProvider.SetError(sender, "TextBox is empty.")
 
        ElseIf Not Single.TryParse(Value, New Single) Then
            MyErrorProvider.SetError(sender, "The value cannot contain letters.")
 
        ElseIf Single.TryParse(Value, New Single) Then
 
            If Value > Integer.MaxValue Then
                MyErrorProvider.SetError(sender, "Value is greater than " & CStr(Integer.MaxValue))
            Else ' Remove the error.
                MyErrorProvider.SetError(sender, String.Empty)
            End If
 
        Else ' Remove the error.
            MyErrorProvider.SetError(sender, String.Empty)
 
        End If
 
        Me.lblError.Text = MyErrorProvider.GetError(sender)
 
        If String.IsNullOrEmpty(Me.lblError.Text) Then
            Me.lblError.Text = "No errors :)"
            Me.ErrorExists = False
        Else
            Me.ErrorExists = True
        End If
 
    End Sub
 
End Class
 
 
 

    ' Get Html XPaths
    ' By Elektro
    '
    ' Example Usage:
    '
    ' Dim Document As New HtmlAgilityPack.HtmlDocument
    ' Document.LoadHtml(IO.File.ReadAllText("C:\File.html"))
    ' Dim XpathList As List(Of String) = GetHtmlXPaths(Document)
    ' ListBox1.Items.AddRange((From XPath As String In XpathList Select XPath).ToArray)
 
    ''' <summary>
    ''' Gets all the XPath expressions of an <see cref="HtmlAgilityPack.HtmlDocument"/> document.
    ''' </summary>
    ''' <param name="Document">Indicates the <see cref="HtmlAgilityPack.HtmlDocument"/> document.</param>
    ''' <returns>List(Of System.String).</returns>
    Public Function GetHtmlXPaths(ByVal Document As HtmlAgilityPack.HtmlDocument) As List(Of String)
 
        Dim XPathList As New List(Of String)
        Dim XPath As String = String.Empty
 
        For Each Child As HtmlAgilityPack.HtmlNode In Document.DocumentNode.ChildNodes
 
            If Child.NodeType = HtmlAgilityPack.HtmlNodeType.Element Then
                GetHtmlXPaths(Child, XPathList, XPath)
            End If
 
        Next Child
 
        Return XPathList
 
    End Function
 
    ''' <summary>
    ''' Gets all the XPath expressions of an <see cref="HtmlAgilityPack.HtmlNode"/>.
    ''' </summary>
    ''' <param name="Node">Indicates the <see cref="HtmlAgilityPack.HtmlNode"/>.</param>
    ''' <param name="XPathList">Indicates a ByReffered XPath list as a <see cref="List(Of String)"/>.</param>
    ''' <param name="XPath">Indicates the current XPath.</param>
    Private Sub GetHtmlXPaths(ByVal Node As HtmlAgilityPack.HtmlNode,
                              ByRef XPathList As List(Of String),
                              Optional ByVal XPath As String = Nothing)
 
        XPath &= Node.XPath.Substring(Node.XPath.LastIndexOf("/"c))
 
        Const ClassNameFilter As String = "[@class='{0}']"
        Dim ClassName As String = Node.GetAttributeValue("class", String.Empty)
 
        If Not String.IsNullOrEmpty(ClassName) Then
            XPath &= String.Format(ClassNameFilter, ClassName)
        End If
 
        If Not XPathList.Contains(XPath) Then
            XPathList.Add(XPath)
        End If
 
        For Each Child As HtmlAgilityPack.HtmlNode In Node.ChildNodes
 
            If Child.NodeType = HtmlAgilityPack.HtmlNodeType.Element Then
                GetHtmlXPaths(Child, XPathList, XPath)
            End If
 
        Next Child
 
    End Sub
 

    ' String To HtmlDocument
    ' By Elektro
    '
    ' Example Usage:
    ' Dim Document As HtmlDocument = StringToHtmlDocument(IO.File.ReadAllText("C:\File.html", Text.Encoding.Default))
    '
    ''' <summary>
    ''' Converts a <see cref="String"/> to an <see cref="HTMLDocument"/>.
    ''' </summary>
    ''' <param name="str">Indicates the string.</param>
    ''' <returns>The <see cref="HTMLDocument"/> object.</returns>
    Public Function StringToHtmlDocument(ByVal str As String) As HtmlDocument
 
        Using wb As New WebBrowser
 
            wb.ScriptErrorsSuppressed = True
            wb.DocumentText = ""
            wb.Document.OpenNew(replaceInHistory:=True)
            wb.Document.Write(str)
            Return wb.Document
 
        End Using
 
    End Function

    ' Get XPaths
    ' By Elektro
    '
    ' Example Usage:
    '
    ' Dim xDoc As New Xml.XmlDocument
    ' xDoc.Load("C:\File.xml")
    ' Dim XPathList As List(Of String) = GetXPaths(xDoc)
    ' ListBox1.Items.AddRange((From XPath As String In XPathList Select XPath).ToArray)
 
    ''' <summary>
    ''' Gets all the XPath expressions of an XML Document.
    ''' </summary>
    ''' <param name="Document">Indicates the XML document.</param>
    ''' <returns>List(Of System.String).</returns>
    Public Function GetXPaths(ByVal Document As Xml.XmlDocument) As List(Of String)
 
        Dim XPathList As New List(Of String)
 
        Dim XPath As String = String.Empty
 
        For Each Child As Xml.XmlNode In Document.ChildNodes
 
            If Child.NodeType = Xml.XmlNodeType.Element Then
                GetXPaths(Child, XPathList, XPath)
            End If
 
        Next ' child
 
        Return XPathList
 
    End Function
 
    ''' <summary>
    ''' Gets all the XPath expressions of an XML Node.
    ''' </summary>
    ''' <param name="Node">Indicates the XML node.</param>
    ''' <param name="XPathList">Indicates a ByReffered XPath list as a <see cref="List(Of String)"/>.</param>
    ''' <param name="XPath">Indicates the current XPath.</param>
    Private Sub GetXPaths(ByVal Node As Xml.XmlNode,
                          ByRef XPathList As List(Of String),
                          Optional ByVal XPath As String = Nothing)
 
        XPath &= "/" & Node.Name
 
        If Not XPathList.Contains(XPath) Then
            XPathList.Add(XPath)
        End If
 
        For Each Child As Xml.XmlNode In Node.ChildNodes
 
            If Child.NodeType = Xml.XmlNodeType.Element Then
                GetXPaths(Child, XPathList, XPath)
            End If
 
        Next ' child
 
    End Sub
 

Enumerable.Range(1I, 30I).ToArray ' 1 to 30

ReadOnly FixedValues As Integer() = {1, 5, 19, 22, 34, 55, 66, 88, 99, etc...}

        Combos.ForEach(Sub(comb As List(Of Integer))
                           ListBox1.Items.Add(String.Join(", ", comb))
                       End Sub)
 

        ListBox1.Items.AddRange(
            (From comb As List(Of Integer) In Combos
             Select String.Join(", ", comb)).ToArray
         )
 

Public Class LuisClass_v2
 
    ReadOnly Randomizer As New Random
 
    ReadOnly FixedValues As Integer() =
        Enumerable.Range(1I, 30I).ToArray ' 1 to 30
 
    ReadOnly RandomValues As Integer() =
        Enumerable.Range(FixedValues.First, FixedValues.Last).ToArray ' 1 to 30
 
    Dim Combo As List(Of Integer) = Nothing
    Dim Combos As New List(Of List(Of Integer))
 
    Private Sub Test() Handles MyBase.Shown
 
        Dim IndexCounter As Integer = FixedValues.First ' 1
        Dim LenCounter As Integer = 0I
 
        Const NumStep As Integer = 3I
        Const NumLen As Integer = 10I
 
        Do Until IndexCounter > FixedValues.Last ' IndexCounter > 30
 
            Combo = New List(Of Integer)
 
            For Num As Integer = IndexCounter To (FixedValues.Count) Step NumStep ' 1 to 30 Step 3
 
                Combo.Add(Num)
                LenCounter += 1I
 
                If LenCounter >= NumLen Then
                    Exit For
                End If
 
            Next ' Num
 
            If LenCounter < NumLen Then ' If LenCounter < 10
 
                For RandomNum As Integer = 1I To (NumLen - LenCounter)
 
                    Dim n As Integer = Randomizer.Next(RandomValues.First, RandomValues.Last)
 
                    Do Until Not Combo.Contains(n)
                        n = Randomizer.Next(RandomValues.First, RandomValues.Last)
                    Loop
 
                    Combo.Add(n)
 
                Next ' RandomNum
 
            End If ' LenCounter < NumLen
 
#If DEBUG Then ' #Debug
            Debug.WriteLine(String.Join(", ", Combo))
            ' Stop
#End If
 
            Combos.Add(Combo)
            IndexCounter += 1I
            LenCounter = 0I
 
        Loop ' IndexCounter >= FixedValues.Last
 
        ' ********
        ' Listbox:
        ' ********
        Combos.ForEach(Sub(comb As List(Of Integer))
 
                           ' Convierto la Lista a 'String', le añado los ceros, y añado el string formateado al Listbox.
                           ListBox1.Items.Add(String.Join(", ",
                                                          From value As String In comb
                                                          Select If(value.Length = 1I,
                                                                    value.Insert(0I, "0"c),
                                                                    value)))
 
                       End Sub)
 
    End Sub ' Test
 
End Class