Local lnYuanLie,lnChengeLie
lnYuanLie=800
lnChangeLie=Sysmetric(1)/lnYuanLie
Thisform.oToolbar2.OLEcontrol1.Width=Thisform.oToolbar2.OLEcontrol1.Width*lnChangeLie-20
Thisform.oToolbar2.OLEcontrol1.Panels(2).Width=Thisform.oToolbar2.OLEcontrol1.Width-Thisform.oToolbar2.OLEcontrol1.Panels(1).Width-;
THISFORM.oToolbar2.OLEcontrol1.Panels(3).Width-Thisform.oToolbar2.OLEcontrol1.Panels(4).Width-Thisform.oToolbar2.OLEcontrol1.Panels(5).Width-;
THISFORM.oToolbar2.OLEcontrol1.Panels(6).Width-Thisform.oToolbar2.OLEcontrol1.Panels(7).Width-Thisform.oToolbar2.OLEcontrol1.Panels(8).Width-20
根据你自己的情况修改。