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![]()

Rispondi quotando