Private Sub btnCreateTeams_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateTeams.Click

        'Variable for random number assign to each item in the array
        Dim Rand As String

        'Initiate the random number generator
        Randomize()

        'Variable to store total names in array
        Dim NoOfNames As Integer
        'Place total number of names currently in the array into variable NoOfNames
        NoOfNames = Names.Length
        'Check that the above line is correct - testing purposes only
        lblNoOfNames.Text = NoOfNames

        'Variable to enable names to be split across two list boxes
        Dim MaxTeamOne As Integer
        'Calculate the max number of names which can go into the first list box
        'Integer division at work
        MaxTeamOne = NoOfNames \ 2


       [color=#009900][b] 'Rand = (Rnd() * Names.Length - 1)[/b][/color]

        'Loop until all names in the array have been read
        For i = 0 To Names.Length - 1
            'Read one name at a time and place in Rand variable
            Rand = Names(i)
            'Limit the number of names in the first list box to half the total number
            'of names currently in the array
            If lstTeamOne.Items.Count <= MaxTeamOne - 1 Then
                'Add names from array to first list box
                lstTeamOne.Items.Add(Rand)
            Else
                'Add names from array to second list box
                'when the first list box is deemed to be full
                lstTeamTwo.Items.Add(Rand)
            End If
        Next i
        'When all names from the array have been read into the list boxes
        If lstTeamTwo.Items.Count = MaxTeamOne + 1 Then
            'Display this message to user
            MessageBox.Show("Teams allocated.  Enjoy the game!")
            'Disable the button that runs this code's click event
            btnCreateTeams.Enabled = False
        End If

    End Sub

    For i = 0 To Names.Length - 1

            Rand = (Rnd() * (Names.Length - 1))

            lstTeamOne.Items.Add(Names(Rand))

            If lstNames.Items.Count > MaxTeamOne - 1 Then

                lstTeamTwo.Items.Add(Names(Rand))

            End If

        Next i

    
Dim Names() As String

Dim Rand As Integer

   'Initiate the random number generator
        Randomize()

'Variable to enable names to be split across two list boxes
        Dim MaxTeamOne As Integer

        'Calculate the max number of names which can go into the first list box
        'Integer division at work
        MaxTeamOne = (Names.Length - 1) \ 2

Rand = (Rnd() * (Names.Length - 1))

        For i = 0 To Names.Length - 1

            If lstTeamOne.Items.Count <= MaxTeamOne - 1 Then

                lstTeamOne.Items.Add(Names(Rand))

            Else

                If lstTeamOne.Items.Count > MaxTeamOne - 1 Then

                    lstTeamTwo.Items.Add(Names(Rand))

                End If

            End If

        Next i

        'When all names from the array have been read into the list boxes
        If lstTeamTwo.Items.Count = MaxTeamOne + 1 Then

            'Display this message to user
            MessageBox.Show("Teams allocated.  Enjoy the game!")

            'Disable the button that runs this code's click event
            btnCreateTeams.Enabled = False

        End If

        Dim myRandom As New Random, idx As Integer
        Dim Names As New List(Of String)
        Dim team1 As New List(Of String)
        Dim team2 As New List(Of String)

        Names.Add("Tom")
        Names.Add("Martin")
        Names.Add("Mary")
        Names.Add("James")
        Names.Add("John")
        Names.Add("Tom2")
        Names.Add("Martin2")
        Names.Add("Mary2")
        Names.Add("James2")
        Names.Add("John2")
        Names.Add("Tom3")
        Names.Add("Martin3")
        Names.Add("Mary3")
        Names.Add("James3")
        Names.Add("John3")

        Do While Names.Count > 0
            idx = myRandom.Next(0, Names.Count)
            team1.Add(Names.Item(idx))
            Names.RemoveAt(idx)
            If Names.Count = 0 Then Exit Do
            idx = myRandom.Next(0, Names.Count)
            team2.Add(Names.Item(idx))
            Names.RemoveAt(idx)
        Loop
        ListBox1.Items.AddRange(team1.ToArray)