Italian B4J - (Risolto) indice oggetti

Sub Base_MouseClicked (EventData As MouseEvent)
    
    Dim mBaseTemp As B4XView = Sender
    
    Dim indexNew, IndexOld As Int
    
    indexNew= mBase.Parent.NumberOfViews-1
    
    For i=0 To mBase.Parent.NumberOfViews-1
        Log (mBase.Parent.GetView(i))
        If mBase.Parent.GetView(i) = Sender Then
            IndexOld=i
        End If
    Next
    
    Dim miaold As Object = mBase
    Dim miaNew As Object = mBase.Parent.GetView(indexNew)
    
    mBase.Parent.GetView(indexNew) = miaold
    mBase.Parent.GetView(IndexOld) = miaNew
    
    Dim x,y,w,h As Int
    x=(mBase.Parent.Width-400)/2
    y=((mBase.Parent.Height/2)-(400/2))
    w=400
    h=400
    Log( x & " y=" & y & " w=" & w & " h=" & h)
    If EventData.ClickCount=2 Then
        mBaseTemp.SetLayoutAnimated(200,x,y,w,h)
    Else
        mBaseTemp.SetLayoutAnimated(200,mbaseL,mBaseT,mbaseW,mbaseH)
    End If
End Sub

Sub Base_MouseClicked (EventData As MouseEvent)
    
    Dim mBaseTemp As B4XView = Sender
    
    mBase.BringToFront '<---------------------------------------------------------------------------------------------------------------------------------- qui
    
    Dim x,y,w,h As Int
    x=(mBase.Parent.Width-400)/2
    y=((mBase.Parent.Height/2)-(400/2))
    w=400
    h=400
    
    If EventData.ClickCount=2 Then
        mBaseTemp.SetLayoutAnimated(200,x,y,w,h)
    Else
        mBaseTemp.SetLayoutAnimated(200,mbaseL,mBaseT,mbaseW,mbaseH)
    End If

    
End Sub