Public Class Form1
    Private Time1 As New Timer()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call InitializeMyTimer()
    End Sub
 
 
    Private Sub InitializeMyTimer()
        Time1.Interval = 50
        AddHandler Time1.Tick, AddressOf IncreaseProgressBar
        Time1.Start()
    End Sub
    Private Sub IncreaseProgressBar(ByVal sender As Object, ByVal e As EventArgs)
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Time1.Stop()
            MessageBox.Show("hola")
        End If
    End Sub
 
End Class

Public Class Form1
    Private Time1 As New Timer()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call InitializeMyTimer()
    End Sub
 
 
    Private Sub InitializeMyTimer()
        Time1.Interval = 20
        AddHandler Time1.Tick, AddressOf IncreaseProgressBar
        Time1.Start()
    End Sub
    Private Sub IncreaseProgressBar(ByVal sender As Object, ByVal e As EventArgs)
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Time1.Stop()
            Close()
        End If
    End Sub
 
End Class

 
        ListBox1.Items.Add("1 2 3")
        ListBox1.Items.Add("1 4 5")
        ListBox1.Items.Add("1 3 4")
        ListBox1.Items.Add("1 3 5")
        ListBox1.Items.Add("2 3 4")
        ListBox1.Items.Add("4 5 6")
        ListBox1.Items.Add("6 7 8")
 
        '//Elimina combinaciones correlativas
        Dim ClearList As New List(Of String)
        ClearList.AddRange(ListBox1.Items.OfType(Of String))
        For Each Digito As String In ClearList
            If CDbl(Digito.Substring(2, 1)) = CDbl(Digito.Substring(0, 1)) + 1 And
                 CDbl(Digito.Substring(4, 1)) = CDbl(Digito.Substring(2, 1)) + 1 Then
                ListBox1.Items.Remove(Digito)
            End If
        Next
 
 

1 4 5
1 3 4
1 3 5

Dim MisBolas() As String = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40}

   Dim NumCombinaciones As Integer = 100

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ListaComb As New List(Of String)         '//Lista de combinaciones
        Dim NumCombinaciones As Integer = 100 '<---OJO EN ESTE CASO SOLO LO MAXÍMO SON 462 
        Dim NewComb As String
        ListaComb.Clear()
 
        For B1 As Integer = 1 To NumCombinaciones
            While ListaComb.Count < NumCombinaciones
                NewComb = GetCombPrimitiva()
                ListaComb.Add(NewComb)
                ListaComb = ListaComb.Distinct.ToList
                Me.Text = "Combinaciones generadas: " & ListaComb.Count
                My.Application.DoEvents()
            End While
 
        Next B1
        ListaComb.Sort()
        ListBox1.Items.Clear()
        For Each Elem As String In ListaComb
            ListBox1.Items.Add(Elem)
        Next
 
    End Sub
    Public Function GetCombPrimitiva() As String
        Dim MisBolas() As String = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40}
        Dim Bombo As New List(Of Integer)           '//Bombo para meter las bolas
        Dim Fila As New List(Of Integer)            '//Fila virtual para poner las bolas en orden
        Dim Combinación As String = Nothing
        Dim NumRandom As New Random
        '//Llena el bombo 
        For Index As Integer = 0 To MisBolas.Count - 1
            Bombo.Add(MisBolas(Index))
        Next
 
        '//Extrae las bolas
        For Index As Integer = 1 To 6
            '//Devuelve números del 0 a 48 (49 números, Bola(0): contiene 1, Bola(1): Bolcontiene 2 ...)
            Dim Bola As Integer = NumRandom.Next(0, Bombo.Count)
            '//Mete la bola en la "fila"
            Fila.Add(Bombo(Bola))
            '//Quita la bola obtenida del bombo
            Bombo.RemoveAt(Bola)
        Next
        Fila.Sort() 'Ordena la fila de bolas
        For Each Bola As Integer In Fila
            Combinación += String.Format("{0:00} ", Bola)
        Next
        Return Combinación
    End Function
 
 
End Class
 

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 44, 45}
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            From value2 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value3 As Integer In intCol
                               Where (value1 <> value2) AndAlso
                                     (value1 <> value3) AndAlso
                                     (value2 <> value3) AndAlso
                                     (value3 > value2) AndAlso
                                     (value2 > value1)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))
 
 
        Dim ClearRep As New List(Of String)
 
        For Each pairs As String In pairsCol
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                ListBox1.Items.Add(line)
            Next line
        Next pairs
 
        MessageBox.Show(ListBox1.Items.Count)
 
 
 
    End Sub
End Class

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim intCol As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 50}
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            From value2 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value3 As Integer In intCol
                               Where (value1 <> value2) AndAlso
                                     (value1 <> value3) AndAlso
                                     (value2 <> value3) AndAlso
                                     (value3 > value2) AndAlso
                                     (value2 > value1)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))
 
 
        Dim ClearRep As New List(Of String)
 
        For Each pairs As String In pairsCol
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                ListBox1.Items.Add(line)
            Next line
        Next pairs
 
        MessageBox.Show(ListBox1.Items.Count)
 
 
 
    End Sub
End Class

        Dim Elementos As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 50}
        Dim EleX As Integer = 0
        Dim EleX2 As Integer = 0
        ListBox1.Items.Clear() 'Limpia el ListBox
        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
            For I2 As Integer = EleX To Elementos.Count - 1
                For I3 As Integer = EleX To Elementos.Count - 1
                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
                    End If
 
                Next
            Next
        Next
        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)