LPARAMETERS vNewVal With ThisFormSet .ModoExibicao = m.vNewVal DO Case Case .ModoExibicao = "A" Store .T. To .FormA.Visible, .FormA.Enabled Store .F. To .FormB.Visible, .FormB.Enabled Store .F. To .FormC.Visible, .FormC.Enabled Case .ModoExibicao = "B" Store .F. To .FormA.Enabled, .FormC.Visible, .FormC.Enabled Store .T. To .FormA.Visible, .FormB.Visible, .FormB.Enabled .FormB.Text1.SetFocus Case .ModoExibicao = "C" Store .T. To .FormA.Visible, .FormC.Visible, .FormC.Enabled Store .F. To .FormA.Enabled, .FormB.Visible, .FormB.Enabled .FormC.Text1.SetFocus EndCase EndWith Return .T.If I put ThisFormSet.ModoExibicao = "B" in a button of the FormA, it works... But if I do it:
Do Form Test_FormSet With "B" ... LParameters Par1 ThisFormSet.ModoExibicao = Par1It don't work. Well... It works, but the FormA is on the FormB... I think it is a BUG...