What do I add to this when that random selection goes into lstBlue. I want it removed after it was added to lstBlue.

I got the selecting random to work so far.
Code:
        Dim selectRnd As New Random
        lstBlue.Items.Add(lstAll.GetItemText(lstAll.Items(selectRnd.Next(0, lstAll.Items.Count))))