Visual Basic - error 383 AYUDA X FAVOR

Hola
tengo el siguiente codigo

Private Type dimensiones
iz As Long
ar As Long
an As Long
al As Long
End Type
Dim anchoIni As Long, altoIni As Long, dimControles() As dimensiones
Private Sub Form_Load()
Dim aux As Control, i As Integer
anchoIni = Me.ScaleWidth
altoIni = Me.ScaleHeight
ReDim dimControles(Me.Controls.Count)
For Each aux In Me.Controls
dimControles(i).iz = aux.Left
dimControles(i).ar = aux.Top
dimControles(i).an = aux.Width
dimControles(i).al = aux.Height
i = i + 1
Next aux
End Sub
Private Sub Form_Resize()
Dim aux As Control, i As Integer
For Each aux In Me.Controls
aux.Left = (Me.ScaleWidth / anchoIni) * dimControles(i).iz
aux.Top = (Me.ScaleHeight / altoIni) * dimControles(i).ar
aux.Width = (Me.ScaleWidth / anchoIni) * dimControles(i).an
aux.Height = (Me.ScaleHeight / altoIni) * dimControles(i).al
i = i + 1
Next aux
End Sub

al ejecutar la aplicacion en el evento form_resize me dice que la propiedad Height es de solo lectura, el error me lo da en la siguente linea

aux.Height = (Me.ScaleHeight / altoIni) * dimControles(i).al

¿Que puedo hacer? Gracias

Estuve probando el cambiar de altura a un commandbutton, y no tuve ningun problema.
Haz verificado que tipo de control es el que genera el error?

Saludos
Gustavo

Hola

Pos no se, yo lo que tengo es una aplicacion y tengo que ponerla en diferentes equipos, esta aplicacion la he creado a resolucion 1024x768
pero hay equipos que tienen resolucion de 800x600 y sus usuarios no la quieren cambiar, con lo que parte de los formularios de la aplicacion no se ven, lo que buscaba era poder adaptar el formulario a la resolucion de cada equipo. El codigo que puse en mi anterior nota es el que me digeron que pusiera, pero no funciona.

¿Sabes tu como lo puedo lograr?

Muchisimas gracias de antemano.