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