Gunnar,
I just tested under VFP-Sp5 switching.

Public loProc, loForm1,loForm2
loProc = createobject('myProcs')
loForm1 = createobject('myForm')
loForm2 = createobject('myForm')
loForm2.Top = loForm1.Top + 200
loForm2.Left = loForm1.Left + 200
loForm1.Show()
loForm2.Show()
On key label 'F2' loProc.ShowSession()
loProc.ShowSession()


Define class myProcs as custom
    Procedure ShowSession
    If Type("_screen.ActiveForm") = "O" and !isnull(_screen.ActiveForm)
        If _screen.ActiveForm.Datasession = 2 && Private
			_screen.cls
            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
Endproc
Enddefine

Define class myForm as form
    DataSession = 2
    Top = 200
    Left = 200
Enddefine

Cetin

>Cetin, all 3 show ds id 1. so it's not switching at all
>
>
>>Gunnar,
>>I didn't expect it to change the data session. It's already in that session. Only wanted to note &CommandDS was wrong. You could test this way:
>>
>>

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
>>