Ridurre in una Label il testo avente dimensioni superiori alla lunghezza della Label medesima

Il caso in questione è quello in cui si ha una Label, alla cui proprietà .Text è assegnato un testo che risulta andare oltre la lunghezza della Label medesima.
L'intento è quello di ridurre la dimensione del font del testo, affinché questo entri adeguatamente nella dimensione della Label.

Mostriamo un possibile ccodice:

Private label1 As Label
Private button1 As Button


Public Sub Form_Open()
 
 With Me
   .W = 400
   .H = 200
 End With
 
 With label1 = New Label(Me)
   .X = 10
   .Y = 10
   .W = 380
   .H = 50
   .Font.Size = 30
   .Text = "Questo è un testo qualsiasi"
   .Background = Color.Lighter(Color.Yellow)
 End With
 
 With button1 = New Button(Me) As "Button1"
   .X = Me.W - 100
   .Y = Me.h - 80
   .W = 80
   .H = 50
 End With
  
End


Public Sub Button1_Click()
 
 While label1.W < label1.Font.TextWidth(label1.Text)
   Dec label1.Font.Size
 Wend
 
End