[RaggiTech]

كاتب الموضوع : egyption-coder

السلام عليكم
اليكم الكود
zoomauto



كود:

كود :

private sub zoomauto_click(byval sender as system.object , _
byval e as system.eventargs)handles zoomauto.click
if picturebox1.image.width>picturebox1.image.height then
picturebox1.height = me.height
picturebox1.width = picturebox1.height*-
(picturebox1.image.width/picturebox1.image.height)
else
picturebox1.height = picturebox1.width*_
(picturebox1.image.height/picturebox1.image.width)
end if
end sub