Runtime removing menu and status bar(Hiding)

Thanks a lot ... if anybody needs it here are 4 functions (Win32 only). ShowWindowMenu, HideWindowMenu, ShowWindowStatusbar, HideWindowStatusbar

Function ShowWindowMenu:Int(Window:TGadget)
	Extern "Win32"
	  Function SetMenu:Int( hwnd:Int, menu:Int)
	EndExtern
	
	Local hWnd:Int
   
	hWnd = QueryGadget(Window, QUERY_HWND)
   
	If Not hWnd
		Return False
	EndIf

	SetMenu( hwnd, WindowMenu(Window).Query(QUERY_HWND))
	UpdateWindowMenu(Window)
	Return True
End Function

Function HideWindowMenu:Int(Window:TGadget)
	Extern "Win32"
	  Function SetMenu:Int( hwnd:Int, menu:Int)
	EndExtern
	
	Local hWnd:Int

	hWnd = QueryGadget(Window, QUERY_HWND)
   
	If Not hWnd
		Return False
	EndIf
	
	SetMenu( hwnd, Null)
	Return True
End Function

Function ShowWindowStatusbar:Int(Window:TGadget)
	Extern "Win32"
		Function FindWindowExA:Int( parent:Int, childafter:Int, classname$z, windowtitle$z)
	EndExtern
	Local hWnd:Int

	hWnd = QueryGadget(Window, QUERY_HWND)
   
	If Not hWnd
		Return False
	EndIf
	
	Local statushwnd:Int = FindWindowExA( hWnd, 0, "msctls_statusbar32", "")
	
	If statushwnd <> 0
		ShowWindow( statushwnd, SW_SHOW)
		Return True
	EndIf
	
	Return False
End Function

Function HideWindowStatusbar:Int(Window:TGadget)
	Extern "Win32"
		Function FindWindowExA:Int( parent:Int, childafter:Int, classname$z, windowtitle$z)
	EndExtern
	Local hWnd:Int
   
	hWnd = QueryGadget(Window, QUERY_HWND)
   
	If Not hWnd
		Return False
	EndIf
	Local statushwnd:Int = FindWindowExA( hWnd, 0, "msctls_statusbar32", "")
	If statushwnd <> 0
		ShowWindow( statushwnd, SW_HIDE)
		Return True
	EndIf
	Return False
End Function