Sub Main
	'Пример работы с состоянием окна (window state)
	'Автор: Raynald Levesque, 23.08.2003
	Dim objSPSSdatadoc As ISpssDataDoc
	Set objSPSSdatadoc = objSpssApp.OpenDataDoc ("c:\\program files\\spss\\employee data.sav")
	'свернём окно данных
	objSPSSdatadoc.WindowState=SpssMinimized
	MsgBox("Окно данных свёрнуто")

	objSPSSdatadoc.WindowState=SpssMaximized
	MsgBox("Окно данных развёрнуто")

	objSPSSdatadoc.WindowState=SpssNormal
	MsgBox("Окно данных в нормальном состоянии")
End Sub