[sofiane-phy]

السلام عليكم و رحمة الله و بركاته ، تحية طيبة لكل أعضاء المنتدى و بعد :

هل من الممكن تحقيق الشرط التالي : عندما يكون : CheckBox1.Checked = True و CheckBox2.Checked = False فإن المظهر يكون كالتالي :

و عندما يكون الشرط :  CheckBox2.Checked = True و  CheckBox1.Checked = False فإن المظهر يكون على الشكل :

كود :

   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
       If CheckBox1.Checked = True Then
          = Dim skn As New Sunisoft.IrisSkin.SkinEngine
         
           skn.SkinFile = "skin/DiamondBlue.ssk"
           skn.AddForm(Me)
           CheckBox2.Checked = False
       End If
   End Sub

   Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
       If CheckBox2.Checked = True Then
         = Dim skn As New Sunisoft.IrisSkin.SkinEngine

           skn.SkinFile = "skin/DiamondPurple.ssk"
           skn.AddForm(Me)
           CheckBox1.Checked = False
       End If
   End Sub