[محمد كريّم]

أعتذر
جرب هذا الكود

كود :

   Private Sub checkSkin()
       Dim skn As New Sunisoft.IrisSkin.SkinEngine

       If CheckBox1.Checked And Not CheckBox2.Checked Then
           'حالة التشك الاول مفعل والثاني غير مفعل

           skn.SkinFile = "skin/DiamondBlue.ssk"
           skn.AddForm(Me)


       ElseIf CheckBox2.Checked And Not CheckBox1.Checked Then
           'حالة التشك الثاني مفعل والاول غير مفعل
           skn.SkinFile = "skin/DiamondPurple.ssk"
           skn.AddForm(Me)

       ElseIf CheckBox2.Checked And CheckBox1.Checked Then
           'حالة التشك الاول والثاني مفعلين

       Else
           'حالة التشك الاول والثاني غير مفعلين

       End If

   End Sub



   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

       checkSkin()

   End Sub

   Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged

       checkSkin()

   End Sub