Private Sub btnDraw_Click(sender As Object, e As EventArgs) Handles btnDraw.Click

    Dim listCount As Integer
    Dim i As Integer = 0
    Dim rnd As New Random
    Dim listselection As Integer

    listCount = grdEmployees.
    Do While i < CInt(grdEmployees.Text)

    'randomize selection
    listselection = rnd.Next(0, grdEmployees.Items.Count)
    lstSelected.Items.Add(grdEmployees.Items(listselection))
    grdEmployees.Items.RemoveAt(listselection)

    'increment i
    i += 1

    Loop

    txtQuantity.Text = String.Empty  'Clears box after entry

End Sub