[مساعدة]

السلام عليكم

تفضل الكود من خلال CheckBox

كود :

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
    If sender.Checked Then
        Me.Opacity = 0.8
    Else
        Me.Opacity = 1
    End If
End Sub