diff --git a/examples/examples/Drawing/Painting/.src/FMain.class b/examples/examples/Drawing/Painting/.src/FMain.class
index ab2b94b47..b9bd287eb 100644
--- a/examples/examples/Drawing/Painting/.src/FMain.class
+++ b/examples/examples/Drawing/Painting/.src/FMain.class
@@ -402,6 +402,29 @@ Public Sub Example16()
   
 End
 
+Public Sub Example17()
+  
+  Dim sText As String = "paint"
+  
+  Dim x, y As Float
+  
+  Paint.Font = Font["Sans,100"]
+  x = 25
+  y = 150
+  
+  Paint.MoveTo(x, y)
+  Paint.Text(sText)
+  Paint.Fill
+  
+  Paint.Brush = Paint.Color(Color.RGB(255, 31, 31, 93))
+  Paint.LineWidth = 6
+  Paint.Arc(x, y, 10, 0, Pi(2))
+  Paint.RelLineTo(0, - Paint.Font.Height(sText))
+  Paint.RelLineTo(Paint.Font.Width(sText), 0)
+  'Paint.RelLineTo(
+  Paint.stroke
+End
+
 
 Public Sub optExample_Click()
 
diff --git a/examples/examples/Drawing/Painting/.src/FMain.form b/examples/examples/Drawing/Painting/.src/FMain.form
index 3e70fdfa8..d6cb083a4 100644
--- a/examples/examples/Drawing/Painting/.src/FMain.form
+++ b/examples/examples/Drawing/Painting/.src/FMain.form
@@ -1,7 +1,7 @@
 # Gambas Form File 3.0
 
 { Form Form
-  MoveScaled(0,0,98,83)
+  MoveScaled(0,0,98,86)
   Text = ("")
   Arrangement = Arrange.Fill
   { HSplit1 HSplit
@@ -115,6 +115,12 @@
           Tag = "16"
           Text = ("Text")
         }
+        { Exemple17 RadioButton optExample
+          Name = "Exemple17"
+          MoveScaled(0,49,31,3)
+          Tag = "16"
+          Text = ("Text extend")
+        }
       }
       { Label1 Label
         MoveScaled(2,61,19,3)
diff --git a/examples/examples/Drawing/Painting/Example17 b/examples/examples/Drawing/Painting/Example17
new file mode 100644
index 000000000..e69de29bb