1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
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