From 9bf0c19f4ed25d4856e34a4ac40ccd2e7cfa0bf5 Mon Sep 17 00:00:00 2001
From: visionmercer <62051836+visionmercer@users.noreply.github.com>
Date: Tue, 19 Jul 2022 14:51:33 +0200
Subject: [PATCH] Update noframe.bi

---
 noframe.bi | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/noframe.bi b/noframe.bi
index 4bb9ac2..bae7e58 100644
--- a/noframe.bi
+++ b/noframe.bi
@@ -1,8 +1,3 @@
-
-Declare CustomType Library
-    Function FindWindow& (ByVal ClassName As _Offset, WindowName$)
-End Declare
-
 Declare Dynamic Library "User32"
     Function GetWindowLongA& (ByVal hWnd As _Offset, Byval nIndex As Long)
     Function SetWindowLongA& (ByVal hWnd As _Offset, Byval nIndex As Long, Byval dwNewLong As Long)
@@ -11,18 +6,21 @@ End Declare
 
 Const GWL_STYLE      = -16
 Const WS_BORDER      = &H800000
-Const WS_CAPTION     = &H00C00000
-Const WS_THICKFRAME  = &H00040000
-Const WS_MINIMIZEBOX = &H00020000
-Const WS_MAXIMIZEBOX = &H00010000
-Const WS_SYSMENU     = &H00080000
+Const WS_CAPTION     = &HC00000
+Const WS_THICKFRAME  = &H040000
+Const WS_MINIMIZEBOX = &H020000
+Const WS_MAXIMIZEBOX = &H010000
+Const WS_SYSMENU     = &H080000
 
 Do: Loop Until _ScreenExists
 
-Dim hwnd As _Offset
-Dim As Long winstyle, Style, a
+Dim hwnd     As _Offset
+Dim winstyle As Long
+Dim Style    As Long
 
 hwnd     = _WindowHandle
 winstyle = GetWindowLongA(hwnd, GWL_STYLE)
 Style    = (WS_CAPTION Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU)
-a        = SetWindowLongA&(hwnd, GWL_STYLE, winstyle And Not Style)
\ No newline at end of file
+
+if Not SetWindowLongA&(hwnd, GWL_STYLE, winstyle And Not Style) Then
+End If