Creo que encontre una solucion "rapida"
Private Sub Form_Resize()
Dim Tam as Long
Label1.Width = Me.ScaleWidth
Label1.Height = Me.ScaleHeight
Label1.Top = 0
Label1.Left = 0
Tam = Me.ScaleY (Label1.Height, vbTwips, vbPixels)
Tam = Tam - ((Tam * 35) \ 100) 'Le saca el 35%
Label1.Font.Size = Tam
End Sub
La propiedad Aligment del Label esta en 2 (Center).
El tema es que es medio "a ojo".
De todas formas, voy a probar con el OCX...
ModificadoEl OCX es genial! Pero el tamaño de la fuente de los labels es muy grande y hay veces en que no se ve...
Aun asi, redimensiona los objetos en forma espectacular...