B4J Question [Solved] How do I erase the red dot on the canvas?

Sub Class_Globals
    Private Root As B4XView
    Private fx As JFX
    Private xui As XUI
    Private Canvas1 As Canvas
    Private ColorFormBackground = fx.Colors.White As Paint
    Private ColorBall = fx.Colors.Red As Paint
    Private ox, oy, nx, ny As Double
'    Private BallWidth, BallHeight, BallRadius As Double
    Private BallRadius As Double
    Private GridCanvas As Canvas
    Private indent As Int=30
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    
'    BallWidth=10
'    BallHeight=10
    BallRadius=5
    ox=Canvas1.Width/2
    oy=Canvas1.Height/2
'    Canvas1.DrawRect(ox, oy,BallWidth,BallHeight,ColorBall,True,1)
    Canvas1.DrawCircle(ox, oy,BallRadius,ColorBall,True,1)
    'Canvas1.Visible=False
    DrawGrid
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Sub DrawGrid
    'Remember 0,0 is top left
    'GridCanvas.DrawLine(GridCanvas.Left+indent,GridCanvas.top+indent,GridCanvas.Left+indent,GridCanvas.Height-indent,fx.Colors.Black,1)
    'GridCanvas.DrawLine(GridCanvas.Left+indent,GridCanvas.Height-indent,GridCanvas.Width,GridCanvas.Height-indent,fx.Colors.Black,1)
    For c=1 To Floor(GridCanvas.Width/indent)-1
        'Draw Y-Lines
        GridCanvas.DrawLine(GridCanvas.Left+(indent*c),GridCanvas.top+indent,GridCanvas.Left+(indent*c),GridCanvas.Height-indent,fx.Colors.Black,1)
        'Draw X-Lines
        GridCanvas.DrawLine(GridCanvas.Left+indent,GridCanvas.Height-(indent*c),GridCanvas.Width,GridCanvas.Height-(indent*c),fx.Colors.Black,1)
    Next
End Sub



Private Sub Canvas1_MousePressed (EventData As MouseEvent)
'    ox = EventData.X
'    oy = EventData.Y
'    Log("Pressed: " & ox & "," & oy)   
End Sub

Private Sub Canvas1_MouseDragged (EventData As MouseEvent)
    nx = EventData.X
    ny = EventData.Y
    
    'Check boundaries
    If nx<indent Then nx=indent
    If nx>Canvas1.Width Then nx=Canvas1.Width
    If ny<0 Then ny=0
    If ny>Canvas1.Height-indent Then ny=Canvas1.Height-indent
    
'    Log("Dragged: " & nx & "," & ny)
'    Canvas1.DrawRect(ox-2, oy-2,BallWidth+4,BallHeight+4,ColorFormBackground,True,1)
    Canvas1.DrawCircle(ox-2, oy-2,BallRadius+4,ColorFormBackground,True,1)    'erase old ball
    ox=nx
    oy=ny
'    Canvas1.DrawRect(nx, ny,BallWidth,BallHeight,ColorBall,True,1)
    Canvas1.DrawCircle(nx, ny,BallRadius,ColorBall,True,1)                    'Draw new ball
End Sub

Sub Canvas1_MouseReleased (EventData As MouseEvent)
    nx = EventData.X
    ny = EventData.Y
'    Canvas1.DrawRect(nx-2, ny-2,BallWidth+4,BallHeight+4,ColorFormBackground,True,1)
'    Canvas1.DrawRect(nx, ny,BallWidth,BallHeight,ColorBall,True,1)
    Canvas1.DrawCircle(nx-2, ny-2,BallRadius+4,ColorFormBackground,True,1)
    Canvas1.DrawCircle(nx, ny,BallRadius,ColorBall,True,1)
    ox=nx
    oy=ny
End Sub