Sub BuildDel_Click
Dim send As ImageView = Sender
Dim map As Map = send.Tag
Dim P As Panel
P.Initialize("")
P.Color = Colors.LightGray
'
' Dim i As ActionSheet
' Dim l As List = Array As String("Modifica nome","Modifica descrizione","Elimina build")
' i.Initialize("selecWeapon",Utils.Tr("ut_116"),"","",l)
' i.Show(send)
' Wait For selecWeapon_Click (Item As String)
' If l.IndexOf(Item) = 1 Then
Dim Alert As AlertView
Alert.Initialize("Alert",mp)
'
Alert.BounceAnimations = True
Alert.AnimateAlertInFromTop = True
Alert.AnimateAlertOutToBottom = True
Alert.AutoHideSecond = 10
Alert.Title = "Image"
Alert.Subtitle = "At the top you can see a custom image"
' Alert.CustomImage = LoadBitmap(File.DirAssets,"happy.png")
Alert.DoneButtonTitle = "Ok, thats nice ..."
Alert.ColorScheme = Colors.Black
Alert.Show
' End If
End Sub