How to Zoom in and Zoom out in a Panel?

Question

I have a Panel which have

1. Five labels in it
2. Two lines one is Vertical and other is Horizontal drawn at run time
3. An Ellipse drawn at run time
4. And Some Strings which are also drawn at run time

Now I want to zoom this Panel and every thing in it

How can I solve this problem?

Answer 1

First you have to set the Anchor to all 4 sides for all controls in the panel, resizing the panel will resize the controls also.

Here is the Code.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Panel1.Width = Panel1.Width + 10
    Panel1.Height = Panel1.Height + 10
End Sub