Transferir itens selecionados de um listbox para outro e limpar o original vb.net aspx

Protected Sub btnIncluir_Click(sender As Object, e As EventArgs) Handles btnIncluir.Click

    'Transfere os itens selecionados do listbox origem para o listbox destino        
    For Each Item In lstOrigem.Items
       If Item.selected = True Then
           lstDestino.Items.Add(Item)
       End If
    Next

    'Remove os itens selecionados do listbox origem
    For Each Item In lstOrigem.GetSelectedIndices
        lstOrigem.Items.Remove(lstOrigem.SelectedItem)
    Next

End Sub