legge della dominanza incompleta

esci con indice1.htm

codomina1.ppt

Private Sub CommandButton1_Click()
Label1.Visible = False
Label2.Visible = False
Label11.Visible = True
Image1.Visible = True
End Sub

Private Sub CommandButton2_Click()
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label12.Visible = True
End Sub

Private Sub CommandButton3_Click()
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label13.Visible = True
End Sub


Private Sub CommandButton4_Click()
Rem cela legenda1
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
End Sub

Private Sub CommandButton5_Click()
Rem mostra legenda2
Label14.Visible = True
End Sub

Private Sub CommandButton6_Click()
Rem cela tutto
Image1.Visible = False
Image2.Visible = False

Label17.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
Label17.Visible = False
Label18.Visible = False

End Sub

Private Sub CommandButton7_Click()
Rem mostra immagine1
Image1.Visible = True
Label17.Visible = False
End Sub

Private Sub CommandButton8_Click()
Rem mostra foto2
Image1.Visible = False
Image2.Visible = True
Label17.Visible = False
Label18.Visible = True
End Sub

Private Sub CommandButton9_Click()
Rem mostra leggi
Label17.Visible = True
End Sub


Private Sub UserForm_Click()

End Sub