Sub Method1()
...
Dim wCustDlg As CustomDialog
wCustDlg.AddView(ListView1, 0,0, 77%x, 50%y)
Dim wRet = wCustDlg.Show("Chose navigation app", "Close", "", "", Null)
End Sub
Sub list_ItemClick (Position As Int, Value As Object)
Label1.Text = ListView1.GetItem(Position)
End Sub