Declare Function ShowWindow Lib "user32" _
    (ByVal lHwnd As Long, _
    ByVal lCmdShow As Long) As Boolean
 
sub MinimizeWindow
   dim frame
   dim window
   dim handle
 
    frame  = StarDesktop.getActiveFrame()
    window = frame.getContainerWindow()
    handle = window.getWindowHandle(dimarray(), 1) ' 1=WIN32
    'msgbox handle
    ShowWindow( handle, 2 )
    		'Hide 		0 	SW_HIDE
		'Show 		5 	SW_SHOW
		'Minimize 	2 	SW_MINIMIZE
		'Maximize	3 	SW_MAXIMIZE 
 
end sub

Quelle
fullscreen.ods