Italian [RISOLTO] Passare una view come parametro a una classe

Sub Class_Globals
    
    Private Root As B4XView 'ignore
    Private xui As XUI 'ignore
    Private Label1 As Label
    Private oLog as clsLog   
    
End Sub

'You can add more parameters here.
Public Sub Initialize As Object
    Return Me
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    
    Root = Root1
    Root.LoadLayout("lay_PagLog")
    oLog.MostraLog(Label1, xui.DefaultFolder, "Test LOG.log")

End Sub


'Nella classe clsLog
Sub MostraLog(aLabel As Label, mDir As String, FileName As String) 'ignore
    
    If File.Exists(mDir,NameFile) Then
        aLabel.Text= File.ReadString(mDir,NameFile)
    Else
        aLabel.Text= "Nessun file di LOG trovato" '===> RICEVO ERRORE QUI'
    End If
    
End Sub