attivazione

gestione di effetti e attivazione varia

per vedere usavba3.ppt

Private Sub CommandButton1_Click()
Label1.SpecialEffect = fmSpecialEffectBump
Label2.SpecialEffect = fmSpecialEffectEtched
Label3.SpecialEffect = fmSpecialEffectFlat
Label4.SpecialEffect = fmSpecialEffectRaised
Label5.SpecialEffect = fmSpecialEffectSunken
Label6.SpecialEffect = 2
Label7.SpecialEffect = 3
End Sub

Private Sub CommandButton2_Click()
TextBox1.SpecialEffect = 0
TextBox2.SpecialEffect = 1
TextBox3.SpecialEffect = 2
TextBox4.SpecialEffect = 3
TextBox5.SpecialEffect = 0

End Sub

Private Sub CommandButton5_Click()
TextBox6.Enabled = True
TextBox7.Enabled = False
TextBox8.Locked = True
TextBox9.Enabled = True
TextBox9.Locked = False
End Sub



Private Sub CommandButton3_Click()
Label8.Visible = True
Label8.Enabled = True
Label9.Visible = False
Label9.Enabled = False
End Sub

Private Sub CommandButton4_Click()
Label8.Visible = False
Label9.Visible = True
End Sub