Public Class GPSTest : Inherits Form
 
    ' TKey   = Day of year
    ' TValue = GPS Week
    Friend ReadOnly GPSDictionary As Dictionary(Of Integer, Integer) = Me.GetGPSDictionary
 
    Private Function GetGPSDictionary() As Dictionary(Of Integer, Integer)
 
        Dim ThisYear As Integer = Now.Year
 
        Dim DaysInThisYear As Integer = (From month As Integer In Enumerable.Range(1, 12)
                                         Select DateTime.DaysInMonth(ThisYear, month)).Sum
 
        Dim GPSWeeks As IEnumerable(Of Integer) = Enumerable.Range(1773 - 1, 1825)
 
        Dim Result As New Dictionary(Of Integer, Integer)
 
        For Day As Integer = 1 To DaysInThisYear
 
            Result.Add(Day, GPSWeeks(DatePart(DateInterval.WeekOfYear,
                                              New DateTime(ThisYear, 1, 1).AddDays(Day - 1))))
 
        Next Day
 
        Return Result
 
    End Function
 
    Private Sub Test() Handles MyBase.Load
 
        MessageBox.Show(Me.GPSDictionary(CInt(InputBox("Intoduce un dia del año", "Dia del año", 1))), "Semana GPS:",
                        MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        Application.Exit()
 
    End Sub
 
End Class

    ' Write a song element.
    XMLHelper.Write_Elements(XmlWriter, { _
                                         {"Name", "My Song file.mp3"}, 
                                         {"Year", "2013"}, 
                                         {"Genre", "Rock"} _
                                         }, Xml.Formatting.None)
 

Public Class MySettingsExample : Inherits form
 
    Dim WithEvents tb_Name As New TextBox
 
    Private Shadows Sub OnLoad() Handles MyBase.Load
 
        Me.Controls.Add(Me.tb_Name)
        Me.LoadUserSettings()
 
    End Sub
 
    Private Sub LoadUserSettings()
 
        If Not String.IsNullOrEmpty(My.Settings.Name) Then
            Me.tb_Name.Text = My.Settings.Name
        End If
 
    End Sub
 
    Private Sub tb_Name_TextChanged(ByVal sender As Object, ByVal e As EventArgs) _
    Handles tb_Name.TextChanged
 
        Dim _name As String = CStr(sender.Text)
 
        If Not String.IsNullOrEmpty(_name) Then
 
            With My.Settings
                .Name = _name
                .Save()
                ' .Reload()
            End With
 
        End If
 
    End Sub
 
End Class

Me.FlashWindow(Me.Handle, FlashFlags.TaskBar Or FlashFlags.Until_Foreground)

    ''' <summary>
    ''' Flashes the specified window. 
    ''' It does not change the active state of the window.
    ''' For more info see here:
    ''' http://msdn.microsoft.com/en-us/library/windows/desktop/ms679347%28v=vs.85%29.aspx
    ''' </summary>
    ''' <param name="pwfi">A pointer to a FLASHWINFO structure.</param>
    ''' <returns>
    ''' The return value specifies the window's state before the call to the FlashWindowEx function.
    ''' If the window caption was drawn as active before the call, the return value is nonzero.
    ''' Otherwise, the return value is zero.
    ''' </returns>
    <System.Runtime.InteropServices.DllImport("user32.dll")>
    Private Shared Function FlashWindowEx(
            ByRef pwfi As FLASHWINFO
    ) As <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.Bool)> Boolean
    End Function
 
    ''' <summary>
    ''' Contains the flash status for a window and the number of times the system should flash the window.
    ''' For more info see here:
    ''' http://msdn.microsoft.com/en-us/library/windows/desktop/ms679348%28v=vs.85%29.aspx
    ''' </summary>
    <System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)>
    Public Structure FLASHWINFO
 
        ''' <summary>
        ''' The size of the structure, in bytes.
        ''' </summary>
        Public cbSize As UInteger
 
        ''' <summary>
        ''' A handle to the window to be flashed. 
        ''' The window can be either opened or minimized.
        ''' </summary>
        Public hwnd As IntPtr
 
        ''' <summary>
        ''' The flash status. 
        ''' </summary>
        Public dwFlags As FlashFlags
 
        ''' <summary>
        ''' The number of times to flash the window. 
        ''' </summary>
        Public uCount As UInteger
 
        ''' <summary>
        ''' The rate at which the window is to be flashed, in milliseconds. 
        ''' If dwTimeout is zero, the function uses the default cursor blink rate.
        ''' </summary>
        Public dwTimeout As UInteger
 
    End Structure
 
    ''' <summary>
    ''' Contains the flash status for a window.
    ''' </summary>
    <System.ComponentModel.Description("Enum used as 'FlashFlags' parameter in 'FlashWindow' function.")>
    <Flags>
    Public Enum FlashFlags As Integer
 
        ''' <summary>
        ''' Stop flashing. 
        ''' The system restores the window to its original state.
        ''' </summary>    
        [Stop] = 0I
 
        ''' <summary>
        ''' Flash the window caption.
        ''' </summary>
        Caption = 1I
 
        ''' <summary>
        ''' Flash the taskbar button.
        ''' </summary>
        TaskBar = 2I
 
        ''' <summary>
        ''' Flash both the window caption and taskbar button.
        ''' This is equivalent to setting the 'Caption Or TaskBar' flags.
        ''' </summary>
        All = 3I
 
        ''' <summary>
        ''' Flash continuously, until the 'Stop' flag is set.
        ''' </summary>
        Until_Stop = 4I
 
        ''' <summary>
        ''' Flash continuously until the window comes to the foreground.
        ''' </summary>
        Until_Foreground = 12I
 
    End Enum
 
    ''' <summary>
    ''' Flashes the specified window.
    ''' It does not change the active state of the window.
    ''' </summary>
    ''' <param name="Handle">
    ''' Indicates the handle to the window to flash.
    ''' </param>
    ''' <param name="FlashFlags">
    ''' Indicates the flash flags.
    ''' </param>
    ''' <param name="FlashCount">
    ''' Indicates the number of times to flash the window.
    ''' </param>
    ''' <param name="FlashDelay">
    ''' Indicates the rate at which the window is to be flashed, in milliseconds. 
    ''' If dwTimeout is zero, the function uses the default cursor blink rate.
    ''' </param>
    ''' <returns>
    ''' The return value specifies the window's state before the call to the FlashWindowEx function.
    ''' If the window caption was drawn as active before the call, the return value is nonzero.
    ''' Otherwise, the return value is zero.
    ''' </returns>
    Public Function FlashWindow(ByVal [Handle] As IntPtr,
                                ByVal FlashFlags As FlashFlags,
                                Optional ByVal FlashCount As UInteger = UInteger.MaxValue,
                                Optional ByVal FlashDelay As UInteger = 0UI) As Boolean
 
        Dim fInfo As New FLASHWINFO()
 
        With fInfo
 
            .cbSize = Convert.ToUInt32(System.Runtime.InteropServices.Marshal.SizeOf(fInfo))
            .hwnd = [Handle]
            .dwFlags = FlashFlags
            .uCount = FlashCount
            .dwTimeout = FlashDelay
 
        End With
 
        Return FlashWindowEx(fInfo)
 
    End Function
 

Public Class ComboTest : Inherits Form
 
#Region " Objects, Vars "
 
    ' La Class "Random", es necesaria para desordenar una colección
    ' y esta declaración tiene que ir siempre fuera de cualquier Sub.
    Private ComboRandomizer As New Random
 
    ' El control que creo en tiempo de ejecución, donde mostraré las combinaciones.
    Private rtb As New RichTextBox With
            {
              .Dock = DockStyle.Fill,
              .Font = New Font("Lucida Console", 10.0F)
            }
 
    ' Una "palanca" para habilitar/deshabilitar el bloque de depuración.
    Private EnableDebug As Boolean = False
 
    ' Instancio una lista donde iremos guardando cada combinación obtenida.
    Private Combos As New List(Of Integer())
 
    ' Otra lista donde le daré el formato deseado a los números.
    Dim ComboStrings As List(Of String) = Nothing
 
    ' El máximo de combinaciones.
    Private Property MaxCombos As Integer = 80I
 
    ' El máximo de longitud para cada combinación.
    Private Property MaxComboLength As Integer = 6I
 
    ' Los números "guías" que usaremos para rellenar cada combinación.
    Private ReadOnly Numbers As Integer() =
        (From n As Integer In
         ("01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20-" &
          "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40-" &
          "41-42-43-44-45-46-47-48-49-50"
         ).Split({"-"}, StringSplitOptions.RemoveEmptyEntries)).ToArray
 
#End Region
 
#Region " Constructors "
 
        ' De este Sub no hagas caso, es el constructor del Form.
    Public Sub New()
 
        ' This call is required by the designer.
        ' Add any initialization after the InitializeComponent() call.
        InitializeComponent()
 
        ' Añado el control al Form.
        Me.Controls.Add(rtb)
 
    End Sub
 
#End Region
 
#Region " Event-Handlers "
 
    Private Sub ComboTest() Handles MyBase.Load
 
        Me.DoCombos()
        Me.PrintCombos()
 
    End Sub
 
#End Region
 
#Region " Methods "
 
    ' La función que se encarga de desordenar y devolverte una combinación.
    ' By Elektro.
    Friend Function GetRandomCombination(Of T)([Collection] As IEnumerable(Of T),
                                               [Length] As Integer) As IEnumerable(Of T)
 
        Return (From Item As T In [Collection] Order By ComboRandomizer.Next Take [Length]).ToArray
 
    End Function
 
    Private Sub DoCombos()
 
        ' Añadir combinaciones a la lista, hasta que la lista tenga 'MaxComboLength' (80) elementos.
        Do Until Combos.Count = (MaxCombos - 1)
 
            ' Obtengo una combinación.
            Dim tmpCombo As Integer() = Me.GetRandomCombination(Of Integer)(Numbers, MaxComboLength)
 
            ' Ordeno los elementos de la combinación, de menos a mayor.
            Array.Sort(tmpCombo)
 
            ' Añado la combinación a la lista.
            Combos.Add(tmpCombo)
 
        Loop
 
        ' Ordeno los elementos de la lista, basandome en el orden de los elementos de cada Array.
        ' NOTA: Puede tener fallos al ordenar, no aseguro que el orden sea perfecto.
        Combos = (From Combo As Integer() In Combos Order By Convert.ToDecimal(String.Join("", Combo)) Ascending).ToList
        Combos = (From Combo As Integer() In Combos Order By Combo.First Ascending).ToList
 
        ' Además, creo utra lista Strings, para darle formato a cada combo numérico,
        ' y añadirle así un "0" a los números del "1" al "9" y que quede más bonito en la previsualización xD.
        Me.ComboStrings =
            (From Combo In Combos
             Select (String.Join(" | ", From Value As String In Combo
                                       Select If(Value.Length = 1, "0" & Value, Value)))).ToList
 
#If DEBUG Then
 
        ' El bloque de depuración.
        ' Este bloque entero es para testear el formato que le quieras dar.
        If Me.EnableDebug Then
 
            Dim sb As New System.Text.StringBuilder
 
            With sb
 
                For Index As Integer = 0 To (MaxCombos - 1)
 
                    sb.AppendLine(String.Format("Combo sin formato:"))
                    sb.AppendLine(String.Join(", ", Combos(Index)))
                    sb.AppendLine()
                    sb.AppendLine(String.Format("Combo con formato:"))
                    sb.AppendLine(String.Join(", ", ComboStrings(Index)))
 
                    MessageBox.Show(sb.ToString, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                    sb.Clear()
 
                Next Index
 
            End With
 
        End If
 
#End If
 
    End Sub
 
    Private Sub PrintCombos()
 
        ' Muestro los Combos en el control.
        With Me.rtb
 
            .SuspendLayout()
            For Each Combo As String In Me.ComboStrings
                .AppendText(Combo)
                .AppendText(Environment.NewLine & New String("-", Combo.Length) & Environment.NewLine)
            Next Combo
            .ResumeLayout()
 
            .Select(0, 0)
 
        End With
 
    End Sub
 
#End Region
 
End Class
 

        Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.
 
        Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}
 
        For Index As Integer = 0 To (Result1.Count - 1)
 
            Select Case Result1(Index)
 
                Case Is = 0 ' El valor es 0.
                    ' Hacer algo con el número 0 aquí.
                    ' Result1(Index) = Not 0
 
                Case Is < 0 ' El valor es negativo.
                    ' Lo convierto a positivo.
                    Result1(Index) = Math.Abs(Result1(Index))
 
            End Select '/ Result1(Index)
 
 
        Next Index
 
        Result1 = Result1.Distinct().ToArray
        Array.Sort(Result1)