codice:
Private gHeight As Long
Private gWidth As Long

Private Sub Form_Load()
   gHeight = lblEtichetta.Height / 100
   gWidth = lblEtichetta.Width / 100
   sldBarra.Max = 100
End Sub

Private Sub sldBarra_Scroll()
   lblEtichetta.Height = sldBarra.Value * gHeight
   lblEtichetta.Width = sldBarra.Value * gWidth
End Sub

lblEtichetta = la tua label
sldBarra = la tua barra

---------------------------------

credo che la stessa cosa si possa fare anche con un frame...prova

ciao