Viewing source for recipe1806vb.aspx
<%@ Page %>
<%@Import namespace="System.Collections"%>
<%@Import namespace="System.Drawing"%>
<script language="vb" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim myQueue As New Queue()
myQueue.Enqueue("One")
myQueue.Enqueue("Two")
myQueue.Enqueue("Three")
While myQueue.Count > 0
Response.Write(myQueue.Dequeue().ToString() & "<br>")
End While
End Sub
</script>
<HTML>
<body>
<form id="form1" method="post" runat="server">
</form>
</body>
</HTML>