if Type("_screen.ActiveForm") = "O" and !isnull(_screen.ActiveForm) > if _screen.ActiveForm.Datasession = 2 && Private > set datasession to _screen.DataSessionID > _screen.Print('Screen'+trans(set("DataSession"))+chr(13)) > set DataSession to _screen.ActiveForm.DatasessionId > _screen.Print('ActiveForm'+trans(set("DataSession"))+chr(13)) > set DataSession to > _screen.Print('Current'+trans(set("DataSession"))+chr(13)) > endif >endif>Cetin