Private Sub HScroll1_Change()Image1.Width = HScroll1.ValueEnd Sub
Private Sub VScroll1_Change()Image1.Height = VScroll1.ValueEnd Sub