WAP of Shape

'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