RT
------解决方案--------------------------------------------------------
测试一下不就知道了
------解决方案--------------------------------------------------------
For m.lnI=1 To 160
Thisform.AddObject("MyCommand"+Transform(m.lnI),"Commandbutton")
Store m.lnI*20 To ("Thisform.MyCommand"+Transform(m.lnI)+".Top")
Store .T. To ("Thisform.MyCommand"+Transform(m.lnI)+".Visible")
Endfor
------解决方案--------------------------------------------------------