Private Sub Activity_Touch (Action As Int, X As Float, Y As Float)
makeSpot(X, Y)
End Sub
Public Sub makeSpot(x As Int, y As Int)
Dim spot As Panel
spot.Initialize("")
Dim size As Int = 80dip
Dim a As Int = 40dip
Activity.AddView(spot, x - a, y - a, size, size)
spot.As(B4XView).SetColorAndBorder(xui.Color_Green, 0, 0, 40dip)
spot.LoadLayout("Layout") ' If required
End Sub