ASP.NET Source Code Viewer Font Size: 
<%@ Page language="vb" autoeventwireup="false" codebehind=""%>

<html>
<head>
<title>Chapter 6: ASP.NET List Controls</title>

    <script language="VB" runat="server">

    Sub AddButton_Click(sender As Object, e As EventArgs)
        Dim Users as ListItemCollection = New ListItemCollection()
        Dim User as ListItem
        For Each User in UserList.Items
            If User.Selected Then
                Users.Add(User)
            End If
        Next
        For Each User in Users
            UserList.Items.Remove(User)
            GroupList.Items.Add(User)
        Next
    End Sub
    Sub RemoveButton_Click(sender As Object, e As EventArgs)
        Dim Users as ListItemCollection = New ListItemCollection()
        Dim User as ListItem
        For Each User in GroupList.Items
            If User.Selected Then
                Users.Add(User)
            End If
        Next
        For Each User in Users
            UserList.Items.Add(User)
            GroupList.Items.Remove(User)
        Next 
     End Sub


    </script>

</head>
<body>

    <form runat="server">
    <h3>Moving items between lists with Add and Remove</h3>

    <TABLE WIDTH="300" BORDER="0" CELLSPACING="1" CELLPADDING="1">
        <TR>
            <TD NOWRAP>Users:</TD>
            <TD NOWRAP></TD>
            <TD NOWRAP>Power Users:</TD>
        </TR>
        <TR>
            <TD NOWRAP>        
                <asp:ListBox id="UserList" runat="server" Rows="4" selectionmode="Multiple">
                    <asp:ListItem>Paula</asp:ListItem>
                    <asp:ListItem>Chris</asp:ListItem>
                    <asp:ListItem>Eric</asp:ListItem>
                    <asp:ListItem>Wynn</asp:ListItem>
                </asp:ListBox>
            </TD>
            <TD NOWRAP>
            <asp:button text="->" runat="server" ID="AddButton" onclick="AddButton_Click"/>
            <br>
            <asp:button text="<-" runat="server" ID="RemoveButton" onclick="RemoveButton_Click"/>
            </TD>
            <TD NOWRAP>        
                <asp:ListBox id="GroupList" runat="server" Rows="4" selectionmode="Multiple">
                </asp:ListBox>
            </TD>
        </TR>
    </TABLE>

    </form>

</body>
</html>