diff --git a/app/src/gambas3/.src/Component/CComponent.class b/app/src/gambas3/.src/Component/CComponent.class
index a9a4a3d32..f493a4e68 100644
--- a/app/src/gambas3/.src/Component/CComponent.class
+++ b/app/src/gambas3/.src/Component/CComponent.class
@@ -29,6 +29,7 @@ Public SortKey As Integer
 'Public User As Boolean
 Public Version As String
 Public Family As String
+Public ThirdParty As Boolean
 
 Public {Library} As Boolean
 Public Path As String
@@ -197,7 +198,7 @@ Static Private Sub InitComponent(sFile As String)
   Dim aChange As String[]
   Dim aStr As String[]
   Dim sChange As String
-
+  
   sPath = Component.Path &/ sFile 
   
   Try hFic = Open sPath
@@ -213,8 +214,9 @@ Static Private Sub InitComponent(sFile As String)
 
     hComponent = New CComponent
     hComponent.Key = File.BaseName(sFile)
+    hComponent.ThirdParty = Not $cName.Exist(hComponent.key)
     hComponent.Name = $cName[hComponent.Key]
-
+   
     While Not Eof(hFic)
 
       Line Input #hFic, sLig
diff --git a/app/src/gambas3/.src/Component/CComponentBox.class b/app/src/gambas3/.src/Component/CComponentBox.class
index 950968102..0efaae250 100644
--- a/app/src/gambas3/.src/Component/CComponentBox.class
+++ b/app/src/gambas3/.src/Component/CComponentBox.class
@@ -58,7 +58,12 @@ Public Sub _new(hComp As CComponent, bDark As Boolean)
   $sKey = hComp.Key
   
   H = 3 * Desktop.Scale
-  If bDark Then Me.Background = Color.LightBackground
+  
+  If hComp.ThirdParty Then
+    Me.Background = IIf(bDark, Color.Lighter(Color.Pink), Color.Lighter(Color.Lighter(Color.Pink)))
+  Else
+    If bDark Then Me.Background = Color.LightBackground
+  Endif
   
   panVBox = New VBox(Me)