if i understand what you are trying to do correctly then this should work:
when you press the minimise button the code for the imagebox should be something like this (makes it halfsize)
VB Code:
ImageBox.Height = ImageBox.Height/2 ImageBox.Width = ImageBox.Width/2
and then to maximise it again
VB Code:
ImageBox.Height = ImageBox.Height*2 ImageBox.Width = ImageBox.Width*2
ive never used a circle so im not sure how they work but they would either have a radius, or a X1-X2, Y1-Y2.
If they have a radius control, ie circle.radius then you need to do the same as above:
VB Code:
Circle.Radius = Circle.Radius/2
if it uses the X1-X2, Y1-Y2 method, i would think you need something like this:
VB Code:
Circle.X2 = (Circle.X1 + Circle.X2) / 2 Circle.Y2 = (Circle.Y1 + Circle.Y2) / 2
this will keep the top left corner in the same place and shrink the rest to halfsize
my explanations tend to be longwinded but hopefully you get the idea.
matt




Reply With Quote