codice:
Sub RimuoviLabel
    Dim InsiemeControlli
    Dim Oggetto
    
    InsiemeControlli = Me.Controls
    For Each Oggetto In InsiemeControlli
        If Oggetto.Name = "Elle3" Then
            Me.Controls.Remove(Oggetto)
            Exit For
         End If
    Next
End Sub

Sub ModificaTextDellaLabel
    Dim InsiemeControlli
    Dim Oggetto
    
    InsiemeControlli = Me.Controls
    For Each Oggetto In InsiemeControlli
        If Oggetto.Name = "Elle3" Then
            Me.Controls.Text("Nuovo Text")
            Exit For
         End If
    Next
End Sub