
Gracias por compartir sus conocimientos y quedo ansioso por sus respuestas.

Código: Seleccionar todo
Declare Function ShowWindow Lib "user32" _
(ByVal lHwnd As Long, _
ByVal lCmdShow As Long) As Boolean
sub MaxWindow
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