From fdaf5463ccd3032409d5ea463dd3479329f6cb89 Mon Sep 17 00:00:00 2001
From: Xusinboy Bekchanov <bxusinboy@mail.ru>
Date: Tue, 21 May 2024 06:12:34 +0500
Subject: [PATCH] Update LinkLabel.bas

---
 mff/LinkLabel.bas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/mff/LinkLabel.bas b/mff/LinkLabel.bas
index 99cf6d32..caef1765 100644
--- a/mff/LinkLabel.bas
+++ b/mff/LinkLabel.bas
@@ -72,6 +72,21 @@ Namespace My.Sys.Forms
 	Private Sub LinkLabel.ProcessMessage(ByRef Message As Message)
 		#ifndef __USE_GTK__
 			Select Case Message.Msg
+			Case WM_ERASEBKGND 'WM_PAINT, WM_ERASEBKGND
+				If Not FCreated Then
+					FCreated = True
+					Dim As HDC Dc
+					Dim As PAINTSTRUCT Ps
+					Dim As ..Rect R
+					GetClientRect FHandle, @R
+					Dc = BeginPaint(FHandle, @Ps)
+					FillRect Dc, @R, Brush.Handle
+					EndPaint FHandle, @Ps
+					Width = Width + 1
+					Width = Width - 1
+					Message.Result = -1
+					Return
+				End If
 			Case CM_NOTIFY
 				Select Case Cast(LPNMHDR, Message.lParam)->code
 				Case NM_CLICK, NM_RETURN