'Il rettangolo che contiene il bottone
Dim btn1Rect As New RectangleF(35.0F, 30.0F, 85.0F, 40.0F)
'Questo è il rapporto fra il vertice in alto a sinistra e la dimensione totale; rimane costante.
Dim rapportoPoint As PointF
'Questo è il rapporto fra la dimensione del bottone e la dimensione totale; rimane costante.
Dim rapportoSize As SizeF

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 'imposto il rapporto fra il vertice in alto a sinistra e la dimensione totale
 rapportoPoint = New PointF(btn1Rect.X / PictureBox1.Width, btn1Rect.Y / PictureBox1.Height)
 'imposto il rapporto fra la dimensione del bottone e la dimensione totale
 rapportoSize = New SizeF(btn1Rect.Width / PictureBox1.Width, btn1Rect.Height / PictureBox1.Height)
 'queste variabili vengono usate all'evento SizeChanged per modificare in rapporto
 'alla nuova dimensione la posizione e le dimensioni del rettangolo
End Sub

Private Sub PictureBox1_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.SizeChanged
 'imposto il rettangolo in base alle proprozioni e alla nuova dimensione dell'immagine
 btn1Rect = New RectangleF(PictureBox1.Width * rapportoPoint.X, PictureBox1.Height * rapportoPoint.Y, PictureBox1.Width * rapportoSize.Width, PictureBox1.Height * rapportoSize.Height)
End Sub