Hi,
Do you want to change the size of OvalShape2 with Scroll TrackBar1.Value?
Public Class Form1
Dim ph As Integer
Dim pw As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PictureBox1.BackColor = Color.Black
ph = PictureBox1.Size.Height
pw = PictureBox1.Size.Width
TrackBar1.Minimum = 1
TrackBar1.Maximum = 4
End Sub
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
PictureBox1.Width = pw * TrackBar1.Value
PictureBox1.Height = ph * TrackBar1.Value
End Sub
End Class

Best Regards,
Alex
MSDN Community Support Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any
compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.