Protected Sub btnRemove_Click(sender As Object, e As EventArgs)
If lstSelectedEmployees.SelectedIndex > -1 Then
Dim _value As String = lstSelectedEmployees.SelectedItem.Value
'Gets the value of items in list.
Dim _text As String = lstSelectedEmployees.SelectedItem.Text
' Gets the Text of items in the list.
Dim item As New ListItem()
'create a list item
item.Text = _text
'Assign the values to list item
item.Value = _value
lstSelectedEmployees.Items.Remove(item)
'Remove from the selected list
'Add in the Employee list
lstEmployees.Items.Add(item)
End If
End Sub