private sub form_click() thickness = 0.11000 n=0 high=8848 Do While thickness<highn=n+1 thickness=thickness*2 Loo