12312312

Public Sub MoveSelAllToAvail()
        If frmMainForm.lstSelectedPlayers.Items.Count <> 0 Then
            Do While frmMainForm.lstSelectedPlayers.Items.Count <> 0
                frmMainForm.lstAvailablePlayers.Items.Insert(0, frmMainForm.lstSelectedPlayers.Items(0))
                frmMainForm.lstSelectedPlayers.Items.RemoveAt(0)
            Loop
        Else
            MessageBox.Show("There are no players to move.", _
                    "Data validation...", _
                    MessageBoxButtons.OK)
            Exit Sub
        End If
    End Sub
 
    Public Sub DeletePlayer()
        With frmMainForm
            If frmMainForm.lstAvailablePlayers.SelectedIndex <> -1 Then
                frmMainForm.lstAvailablePlayers.Items.RemoveAt(frmMainForm.lstAvailablePlayers.SelectedIndex)
            Else
                MessageBox.Show("First Select a player.",
                                "No Selection Made",
                                MessageBoxButtons.OK,
                                MessageBoxIcon.Exclamation)
            End If
        End With
    End Sub