Picture Box 크기를 사용자가 조절하게 하려면?

Picture Box 크기를 사용자가 조절할 수 있게 만들고 싶어요.
그런데 아래 코드로 실행하면 설정해 둔 크기로 바로 바뀌는데, 원하는 크기를 입력받으려면 어떻게 해야 할까요?
`Private Sub Command4_Click()`
`Text1.Text = picRect.Width`
`Text2.Text = picRect.Height`
`End Sub`