Sub Main 'This illustrates the windows state 'Raynald Levesque 2003/08/23 Dim objSPSSdatadoc As ISpssDataDoc Set objSPSSdatadoc = objSpssApp.OpenDataDoc ("c:\\program files\\spss\\employee data.sav") 'minimize the data window objSPSSdatadoc.WindowState=SpssMinimized MsgBox("Data window has been minimized") objSPSSdatadoc.WindowState=SpssMaximized MsgBox("Data window has been maximized") objSPSSdatadoc.WindowState=SpssNormal MsgBox("Data window is now in Normal state") End Sub