<%@ Page
Inherits="System.Web.UI.MobileControls.MobilePage"
Language="VB"
%>
<%@ Register
TagPrefix="mobile"
Namespace="System.Web.UI.MobileControls"
Assembly="System.Web.Mobile"
%>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
Dim MyItem1 as New MobileListItem
Dim MyItem2 as New MobileListItem
Dim MyItem3 as New MobileListItem
MyItem1.Text = "A"
MyItem2.Text = "B"
MyItem3.Text = "C"
List1.Items.Add(MyItem1)
List1.Items.Add(MyItem2)
List1.Items.Add(MyItem3)
End If
End Sub
Sub OK_OnSubmit(Sender As Object, E As EventArgs)
List1.Items.Remove(txtitem.Text)
End Sub
id="StartForm"
runat="server">
runat="server"
id="List1"
/>
runat="server"
id="lbl1"
Text="Item to remove:"
/>
runat="server"
id="txtItem"
/>
runat="server"
id="cmdOK"
OnClick="OK_OnSubmit"
Text="OK"
/>