Index: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab
===================================================================
--- trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab	(revision 710)
+++ trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab	(revision 711)
@@ -292,4 +292,5 @@
 		AddMessageEvent(WM_MOUSEHOVER, AddressOf(OnMouseHoverBase))
 		AddMessageEvent(WM_PAINT, AddressOf(OnPaintBase))
+		AddMessageEvent(WM_PAINTCLIENT, AddressOf(OnPaintClientBase))
 		AddMessageEvent(WM_KEYDOWN, AddressOf(OnKeyDownBase))
 		AddMessageEvent(WM_CHAR, AddressOf(OnChar))	
@@ -358,4 +359,12 @@
 				EndPaint(hwnd, ps)
 			End Try
+		End If
+	End Sub
+
+	Sub OnPaintClientBase(sender As Object, e As MessageArgs)
+		If ActiveBasic.IsNothing(paintDC) Then
+			e.Handled = False
+		Else
+			OnPaintDC(New PaintDCArgs(e.WParam As HDC, ClientRect))
 		End If
 	End Sub