a start

noframe.bi

@@ -0,0 +1,28 @@
+
+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)
+    Function SetWindowPos&   (ByVal hWnd As _Offset, Byval hWndInsertAfter As Long, Byval x As Long, Byval y As Long, Byval cx As Long, Byval cy As Long, Byval wFlags As Long)
+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
+
+Do: Loop Until _ScreenExists
+
+Dim hwnd As _Offset
+Dim As Long winstyle, Style, a
+
+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)