'WAP of Shape
'controls Property Setting 'Shape1 Name shpshape ' Width 200 ' height 300 'Vertical Name SrcVertical 'Scrollbar ' Min 300 ' Max 200 'Horizontal Name SrcHorizontal 'Scrollbar ' Min 300 ' Max 200 '----------------------------------------------------- ' CODE Private Sub SrcHorizontal_click() shpshape.Width=SrcHorizontal.value End Sub Private Sub SrcVertical_click() shpshape.height=SrcVertical.value End Sub