mostra e nasconde oggetti

Rem nasconde listbox1, Rem mostra listbox1, Rem cancella testo in listbox1
Rem nasconde textbox1, Rem mostra textbox1, Rem cancella textbox1
Rem nasconde label1, Rem mostra label1, Rem cancella label1

vedi formato3.xls

Private Sub CommandButton1_Click()
Rem nasconde listbox1
ListBox1.Visible = False
End Sub

Private Sub CommandButton2_Click()
Rem mostra listbox1
ListBox1.Visible = True
ListBox1.AddItem ("testo visibile")
ListBox1.AddItem ("testo visibile")
ListBox1.AddItem ("testo visibile")
ListBox1.AddItem ("testo visibile")
End Sub

Private Sub CommandButton3_Click()
Rem cancella testo in listbox1
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
Rem nasconde textbox1
TextBox1.Visible = False
End Sub

Private Sub CommandButton5_Click()
Rem mostra textbox1
TextBox1.Visible = True
TextBox1.Text = "testo"
End Sub

Private Sub CommandButton6_Click()
Rem cancella textbox1
TextBox1 = ""
End Sub

Private Sub CommandButton7_Click()
Rem nasconde label1
Label1.Visible = False
End Sub

Private Sub CommandButton8_Click()
Rem mostra label1
Label1.Visible = True
Label1.Caption = "testo"
End Sub

Private Sub CommandButton9_Click()
Rem cancella label1
Label1.Caption = ""
End Sub

indice