Sub Call Button
Dim im As InputMenu
Dim L As List
L.Initialize
L.Add("0925xxxx")
L.Add("0925xxxx")
L.Add("0925xxxx")
L.Add("0925xxxx")
Dim result As Int
result = im.Show(L,"Call")
If result = -3 Then
ToastMessageShow("Nothing selected", False)
Return
End If
Dim Selected As String
Dim p As PhoneCalls
StartActivity(p.Call("Selected"))
Selected = L.Get(result)
ToastMessageShow("You selected " & Selected, False)
End Sub