Partial Public Class MainPage
Inherits UserControl
Public Sub New()
InitializeComponent()
Dim lb As ListBox = GetListbox()
LayoutRoot.Children.Add(lb)
End Sub
PrivateFunction GetListbox() As ListBox
Dim lb AsNew ListBox
lb.Items.Add("Option 1")
lb.Items.Add("Option 1")
Return lb
EndFunctionEndClass