diff --git a/comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class b/comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class
index 18388855b..a1e40f26d 100644
--- a/comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class
+++ b/comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class
@@ -40,7 +40,7 @@ Private Sub HandleStyle(hStyle As Variant, sProperty As String) As Boolean
   Dim hBrush As PaintBrush
   Dim hGradient As Gradient
   
-  If Not hStyle Then hStyle = Me.Brush
+  If IsNull(hStyle) Then hStyle = Me.Brush
 
   If TypeOf(hStyle) = gb.Integer Then