La cuestión es que soy nuevo programando y necesito hacer lo siguiente:

A travez del textbox agrego nombres con el boton que se ve en la imagen "Agregar a la lista" al listbox.
Yo necesito, que con los items agregados al listbox que seguramente van a ser más de 40, con el otro botón "SORTEAR" se creen grupos de 5 en cada Texbox.
Si alguno me puede organizar mas o menos el codigo como seria, le agradeceria mucho, lo necesito urgente.
Si alguien no entendio, que me lo diga y trataré de explicarlo mejor.

Lo unico que tengo por ahora es:

Código:

Public Class Form1
 
    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        list1.Items.Add(txt1.Text)
    End Sub
 
End Class

no te voy a dar el código exactamente porque debes pensarle tanti jejeje es lo bonito de esto. Tienes que pensar que primero debes agrupar de a 5 los Items de la lista y posteriormente agregar los grupos a cada textbox del groupbox... no será tan complicado, realmente solo usaras funciones básicas como ciclos y decisiones, espero que te sirvan las pistas que te dí

Yo necesito que los grupos me los cree al azar, no puedo ya haber agrupado de a 5 en el listbox.
Además, se poco y nada de esto, pero lo hago para ayudar a un amigo y necesito una ayuda rapida.

Ya pude solucionar lo del modo aleatorio agregando:

Código:

Dim i1 As Integer
        i1 = Int(Rnd() * (list1.Items.Count - 1))
        txt2.Text = txt2.Text & list1.Items(i1)
        txt2.Text = txt2.Text & " - "
        Dim i2 As Integer
        i2 = Int(Rnd() * (list1.Items.Count - 2))
        txt3.Text = txt3.Text & list1.Items(i2)
        txt3.Text = txt3.Text & " - "
        Dim i3 As Integer
        i3 = Int(Rnd() * (list1.Items.Count - 3))
        txt4.Text = txt4.Text & list1.Items(i3)
        txt4.Text = txt4.Text & " - "
        Dim i4 As Integer
        i4 = Int(Rnd() * (list1.Items.Count - 4))
        txt5.Text = txt5.Text & list1.Items(i4)
        txt5.Text = txt5.Text & " - "
        Dim i5 As Integer
        i5 = Int(Rnd() * (list1.Items.Count - 5))
        txt6.Text = txt6.Text & list1.Items(i5)
        txt6.Text = txt6.Text & " - "

Necesito solamente el codigo para no repetir los nombres si me lo pueden escribir, no se me ocurre como ponerlo, por favor!

Me quede asi nomás:

Código:

Public Class Form1
 
    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        list1.Items.Add(txt1.Text)
    End Sub
 
    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        Dim i1 As Integer
        i1 = Int(Rnd() * (list1.Items.Count - 1))
        txt2.Text = txt2.Text & list1.Items(i1) & vbCrLf
        Dim i2 As Integer
        i2 = Int(Rnd() * (list1.Items.Count - 1))
        txt3.Text = txt3.Text & list1.Items(i2) & vbCrLf
        Dim i3 As Integer
        i3 = Int(Rnd() * (list1.Items.Count - 1))
        txt4.Text = txt4.Text & list1.Items(i3) & vbCrLf
        Dim i4 As Integer
        i4 = Int(Rnd() * (list1.Items.Count - 1))
        txt5.Text = txt5.Text & list1.Items(i4) & vbCrLf
        Dim i5 As Integer
        i5 = Int(Rnd() * (list1.Items.Count - 1))
        txt6.Text = txt6.Text & list1.Items(i5) & vbCrLf
 
    End Sub
 
End Class

Si alguno sabe el codigo exacto para hacer que cada uno de los items de la listbox no se repita en ninguno de los textboxs, necesito que me lo pase por favor, estoy desesperado!
Muchas gracias!

Pues tienes que comparar, y separar las cadenas de texto seria algo asi como:

Código:

Dim comp() as String
 
comp = Text1.Text.Split(" - ")
dim i as integer
dim valor as Boolean = false
for i = 0 to comp.Lenght - 1
if com(i).Equals(List.Item(i1).ToString) then
valor = true
exit for
end if
end for
 
if not valor then
'Código para agregar
end if

Disculpa me equivoqué, el ultimo if no llevaria el not :P Espero ayudarte con eso

Muchas gracias por la ayuda .