controllo proprietà

controllo di proprietà degli oggetti mediante pulsanti codificanti

creare 6 pulsanti (nome invariato, testo inserito per spiegazione funzione)
cliccando in modo variabile i vari pulsanti si modificano alcune proprietà
della immagine (image1) e del pulsante (CommandButton1)

Private Sub CommandButton1_Click()
Rem rende visibile image1
Image1.Visible = True
End Sub

Private Sub CommandButton2_Click()
Rem invisibile image1
Image1.Visible = False
End Sub

Private Sub CommandButton3_Click()
Rem modifica dimensioni colore a image1
Image1.Height = 200
Image1.Width = 200
Image1.BackColor = vbCyan
Image1.BorderColor = vbRed
Image1.BorderStyle = fmBorderStyleSingle
End Sub

Private Sub CommandButton4_Click()
Rem modifica dimensioni colore posizione a image1
Image1.Height = 250
Image1.Width = 300
Image1.BackColor = vbYellow
Image1.Left = 200
End Sub

Private Sub CommandButton5_Click()
Rem modifica abilitazione commandButton1 disabilita
CommandButton1.Enabled = False
End Sub

Private Sub CommandButton6_Click()
Rem abilita commandbutton1
CommandButton1.Enabled = True
End Sub

per vedere controllo1.ppt